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SPECIAL NOTE 


The information in all three volumes of this document has been 
carefully checked. It is current at the time of publication, 
the end of August, 1977. This document will not be revised 
to show corrections and further changes. Rather, a new 
document will be issued toward the end of 1977 incorporating 
all changes, and making necessary corrections. The new volumes 
will be issued under the title: "As-Built Design Specifications 

for the CAMS Image-100 Hybrid System, as modified. The new 
document will be issued as LEC-11216 and JSC-13118. 

Please bring errors and corrections to the attention of L. Giddings, 
333-6311, mail code C42. 
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ABSTRACT 


This document shows the CAMS Image-100 Hybrid System as it was 
actually built. Volume 1 lists the computer programs for each 
portion of the system, together with functional flow charts. 
Subroutines and function for each program are described in the 
summary. Volume 2 presents detailed flow charts and listings 
of all items listed in the first volume. The third volume pre- 
sents brief descriptions and listings of subroutines shared by 
several programs. All three volumes close with an index of 
computer elements of the entire document. 
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HUGE DAT* BASE UPDATE PROGRAM IMAUPD 


ii 

= IMAUPO.FTN 
; 0001 
0002 
; 0003 
' 0004 

0006 


COOP 

OOC9 

ccio 

OCll 

0012 

^15 

0014 

rOlb 

0016 

0017 

OUl^ 

0 019 
CC?0 
0021 
0022 

0023 

0024 
_C5?5. 


/TR|BlBCK8/WP 

__ PR8fi«AMJ01R .. 

IMPLICIT INTeOgP (A-l) 

LBGlCALtl flur 1 

L0OiCaL«1 ACQNUM, DFLA9 

LJaiCAk P l HS .ADBRtaOAJJ 

L0Q1CaL*i 

JC 5*^(2) 

C .SeQJOISO) 

C .$E0fYl(4) 

L20ICAL«1 

_C 

LOGICAl«4 jdate 
U 0G1CAL** 01RLG4 (128) 
nl‘'E^?Ia^4 jDT(?) 
np'E’Slif^ HEAD(23) 

Dl“EfJSl0M SG<2) 

. PIM£NSlflS' HPWP (1 5 3 .'ll 

DImEn'S 10N BUr (3072) 
dimension OJAG(AO) 

OlMENSlavi lND6xr(2,2U0) . DlP"RD<296) 

DlHE\SliaN T^^BD0^(6♦2O) 

DImFvSi0k SE0PEC<2) 

UlME\SlgN DISKT L (1C) 

DIwF\5l("N J0(2) 

/*D/ ACONi'K, OFLAC, 

C0MHi?N /SXIPFL/ SKIPFL 
C0MW71S /nEXREC/ ‘PEC 
equivalence (JOATE, JDT) 

EQ' 1 ■■' aLENCP. (SG. SEG0YT) 

EQ'JIvaLEnCB (HEAnER, HOa"') 

ECuIv^lFNCE (JD, JDATE) 
equivalence (SW, SFGVU‘0 
equivalence (OIPEvT. CIPa'-’C, nIPLG4) 
DATA ^T0 /O/, 9UFS? /307?/ 

data xS X/200/ __ 

Data “d^Ta /O/ 

data mTxtfo /;/ 

data nD0TS /209/ 

data ''AXACD/6/i DLSKIP/IQ/ 

data yAxCHN/4/ 

Data yAxtep /ao/ 

OaTa sfQJD /IHDi IMS, lH-3,lhii ,*.hC, II 


OaTa sfQJD /IHDi IMS, IH’.lhli ,*.hC, 1H3, IW." 

1^0* IH,, IW3. IHO, 1 -Cl IHJ, IW ,1H I 

1^ . IH ilH I IH 1“ I IW ilH 1 

IH.i IMP, IWAi IhT, 1m I 1H , 1M , 1H / 

TF7IR“ » 1 
UNIT ■ 0 

Fll t 1 

ENDFIl ■ 0 

"Kl ■ KDX • 2 

0PEN (UMT«3,nAM 6»» C300,3003''SKTBLiOATll* I 

TVPE«t0(.D', ACCESS* *0! RECT ' ,asS0C1aTE/a»UIL6«5PECi 
yAKREC«400, REC0'?nS!2Ea2OO) 

0PEn (UM t«4, name* *0021 r So 0,j00 3MOT?ISC, DAT* , 
ACCE88a»SEOUESiTlAL* I TTPE ••ILD‘, RIAD0NLTJ 
READ (3'1) INDExF 


0046 


F0PTHAM IV-PLUS V02-04 1.2124135 29«AUG"77 PABE 2 

lM*UPD|FL!i /IPlJliCKS/K5 

0047 HEAD (A. 90) ►•EAD 

0048 7PF^;('J^IT*l3lNAMF«'0IAGN.DATll• ,TYPE«»SCPATCH* » 

0049 9n F?R*"4T(23*2) 

0050 DECJOE (4i 100. HtAD) lOS.tM'M 

0051 100 F3R“aT(I4) 

0052 D2...l4flO 'll 8 1,. K.rx 

0053 INH 8 INDEXF (?. M) 

0054 IF ( I'jt^’cXFd.Nl) .GT, 0) DlSK^LdNO) ■ DISKTLdND) ♦ 1 

0055 1403 

0056 ?PEn C^NIT*!!, rvArFJi'PEP^RT.DAT* . TYPEf * SCPATCW * , 

C F.'’9^8iUMF3RMATTrD' ) 

0fl5i I.F_.Iir^a'- - 2J 1500, 15Ca* ISf^O 

0058 1453 CPNTp-u'fe' 

:C59 - ctes^ (u‘-'iT » 2 ) 


0060 

0061 


0062 

0063 

0064 

0065 

0066 


1500 C0^TIM,'E 

0Pr.v(a‘'''IT82i M'iE='C300.30UJDHF1LE,DaTIi' ,TYPE»*(»LD', 
C ACcESS8»DIRFCT' . aSSOCI ATEvARIaELEsNREC, 

£L AXJ^tC ?2Aiil_. H2CESDSL2£Jli^£} 

LU^ P'A 8 1 

i.ur = '! 

'■ ir-z : 0 

n Y p = 0 
noAY 8 0 


ci '-^EAD hFAIER' FR? h TAPF, I.I' PaC^' SEOMEivT NU'^GFR AND ACQUISITION 

C* TATE, t^UILD nATA t-A 3 F FIlE !NA*^E F 0 F IMAGE DATA IN 'SEGJD* 

C« array. rake S'.'RF IRAGE has riiRRECT NUMBER 0 F CHANNELS, 


r- 


0067 


0066 

0069 


C# 

c« 

c* 


CALL .SRDJSK 

u CLl1-'-1.ha,_ TF?R'-, JDATE. 

C ssc.ryt, 

C sEGJD, HEAUFk, i-;jF, u 'FSi, LCD 
C ,?v, CEGNUM, tYR, JHAY 

C , n.Hi-.N-'S, endftl 

C .’-'aXChn 


JL-- 


H >; r H A ^ , 


C .‘'ir-Tra, 

C } 

IF ( 'XCHAN 


MDv;P,, JDT, Fll 
UNIT 

,GT, 01 T’ 1460 


IF (ENDFIL ,EQ, 1 ) r .,3 T 3 

CHFCK ThF riSK TAtil.E FILF Tl LTICaT? THE SEGMENT IN THE 
directory and HA-<b S''Rt THE C^RRFCT DISK PACK IS M 0 UNTSD, 
If NFa' ShCmE'-'T, LETEhMI nh' nlucCT^RY INDEX (ilRLlNE) REC 0 PD 


I 


0070 


0071 


C* 

CALL niA'CRE 

C (SEGNUM, JDATE, 

C I'CEXF 

C _£_PSt<Ni'M 4 T^RD-’N. NTt';, N'^'G,' 

C ,:<dK, DISKTL, J 3 

C .'■aXL-’ID, DRLInE, ClRwriD 

C , LUCIRA, Fll 

C ) 

IF ('iAG 0 ,FCi, 1 ) O'* TZ 1450 

C» ...... 

C« READ o’IRECT 0 PY FZR THIS SEGMCNT, CHECK NUMBER PF ACQUISITIONS, 

c» AND delete Flag, if acqi'IsitIpn cannot be added, skip file 


■1-2 • 


Pagf js 

K;()]t QUALITY 


IV-PLUS V02-04 


12I24IQ5 


29-AUQ-77 


PAQE 3 


0N TAPE and SET M0a0«l. PEPFf^RM ACQ. DElETI 0N IF REQUlAiO, 
yALL DELEaT 

(S£GNUtti JBATE I .PlRftVTi 

DIRI.Q4. D1RWR<^« DRLINE. HEADER 

.maxacd. hdwd _ 

,DyR, DDAY 

_ . _ _ . _ . . 

, green, ANG, a2m w-r. TO 

.JB „ ___0‘UVv,;;r 

) -*iY 

_J£(N^G^. GE.X)SK 1PFL«1 


n 08 B 

flJAl. 

0090 

0091 


:• RE<D THE IMAGE FR 0 _M tape AND ST 0 RE 0 N DISK 

> 

IF{.\V,G,gE, 1 )CAI.L DUSET(lUNI«<A,F 11 , 1 ) 

IF (N^Ga ,GE, 1 ) G 7 T 0 14&0 

CALL FlLE ST 

C (L'-'MMA.LlJD.TFP'RH.f UF.PUFS 2 .SEGJD 

5 ,T 00 D 0 N,NT?',’iTMTFG 

C ,uNlt,NRecR,''!PRTYR,N»L 0 CK 

C ,\i 5 G"' 

C ,Fll.SEGV|JM 

C I 

IF (N 0 G 0 , 6 Q, 1 )GP Ti/' 14 S 0 

:• READ the IMAGE DaTa FR"'K jmE DISK PILE, 9 UIL 0 0 R UPDATE THE 

:• O 0 T DaTa file, update the directory FILE, 

C ALL R PPISK _ _ 

C ( l’UD, JOATF. , SEGJD, TF?HM, 

C HEaDEB, BI'F, LUFS 2 

C .DiRwRD, niRSvT, DIRLG 4 

C .KnX, DLSKIP, HAXCHN 

C .maXaCD, ND 91 TR 

c *Ln '-1H „ 

c prli'ne ' ' 

C ) 

write ( 3 ' 1 ) INPExF 
AO ■AcONUM 
OF‘G * DFLAG 

write < 11 ) SEG NU--. _ !_y Pj DAYi D Y Ri_ D DAYi 

c nrEcr, NPRTYP, NBL?!Ck, Aq, DFG 

C ,GrEEn, ANG, a 2 M 

KLInE » KLINE * 1 
_ G 0 TC 1450 . 

6000 Continue’ 

WRITE ( 3 >l) INDE XF 

CALL CL 0 SE ( 3 ) 


rewind the TAPP 

CALL TPWD(LUNIHA) 
ir{KLlNE.EQ.O)Q0 TP 71 

rewind 11 

D0 7000 ta » Jx K LINE 


■f 


rBRTRAM 

IV-PlUS 

V02-O4 12124103 29«AUG«77 

if'Aupa. 


_ziP-nL?i:<s/wp . . 

0v9P 


9EA0 (U) S6GNUM , lYR, JDAV, OYRi DnAY, 


c 

vrECPi NPRTYSi N9LPCKI AQi DFG 


c 

.’iRtE’'', AMG. aH^' 

0393 


•OALL PtP’»RT (SEG' U^'i IY9| WDAY, DYRi DDAY 


c 

NrECPi iMPRTYPi nSLKCKi 


- c 

.. ...4<JU. .DFCi GREE.'ii AN(ij_A2i!J . „ 

0094 

7nc'' 

C-NTlNUfc 

0095 

705 

r?^TINUE 

0096 


KRlTe<6»7nO) 

0097 


REWIND 13 

0094 


7‘'0l i^L*l.lOC", 

P1.9S 


. REAi:<i.3,7Ql,tNDs7C02)3iAC. 

cioc 


•••4!TF(6,701)!ilAG 

0101 

7C1 

Op'- ‘4T<60A2) 

0102 

7oni 

Ci!* TlNUE 

PIC, 4 

7002 

C3f'Tl^;UE 

P1C4 


'JRITE 16,700) 

<■'105 

.700-., 

.r?R“ATiiwa) 

OlOo 


PAUL DUSPT (LUNp’A, Fll, 0) 

Pir; 


ST-P 1 

010^ 


E'‘'D 
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1.1 SUBROUTINE REPORT 


rePTu 

COOl 


OOP/' 

OCP^ 

0004 

OOP'5 

OOPo 

OOC7 

OOOfi 

OOP': 

OOl'J 

0011 

001^ 

0013 


OCK 

0 C 25 


0C1 ^ 
OCl"’ 


001 ;' 

ocrv 


GC?0 


0C?1 

00 ?? 

oc?:? 

nc?4 


1 V-P| us 
^ T^' 


C 

C 


]. 1 L * 

1 

U 

c 

c 

c 

14'- 

c 

0 

ij 


1-' 

ij 

c 

c 

c 

c 

c 


r; 


v/02-04 12I24|16 ?9 i»auG» 77 PAGfc 7 

/TWjGl-’C^S/w? 

SliPR''''uTp,t: NEPnfJT 

(SEoN'ih, IVR, JDAYi :'Y«> I^OAY# 

’'^Rfccc, MPHTY?, N?L''C^. , 

AO, OFGi 'I AvG, ?2'') 

implicit IMTPQPR (A-?) 

LBCiCaL*! KDaTC, l\TIMt(i3) 

/’■ATt/ t^DATtC?) 

DAT* LI^cS /^/, PAAc /P/ 

IF (Ll'^c*^ 05 T'^ ;50P0 

IF (Page ,pT. P) G'' Til 11 Of 
CALL :’MF (K'^ATb) 

FAIL Tl‘'E <PTI >'-!-) 

C ■•LT j •■ ;^L 

PA''t; s P' 3 E ♦ 1 
•.RITF ( 0 , 12 'M P.'.lK, 

fprfaT (im, 

T44. •CA“S.!1''\ G’TA 'ASr. ' 


TIC'''. 'PAGtJ ',13, 

/,TU'-, *PATLS •. 

•'RITF (*5. 14P) -TTV, 

F,’R*'a 1 dfl T44, 

I I -. in'. taTa I - 5^1 ijP’A'L / ' 

.’•Ay, IV, yo', • vrsPa', 

n G?. 'I’l 'FI *1 -'Ai./^ 

..RMf- (0,1AO) 

•i-;‘,1AT (IX, 

Tl;«i'ACC,', T-'P, J 'P' R’ * Ije.'ACT,*, T70, INUHbtR* , 
7r.'; . ' •■Uf’iiFR' , / , 

IX, Ti^, *0.\T»y . T2?,'.^P’, ’•3T, ' AFCJ , * , T3‘5,'DATF*i 
T47,'?U>», T5F,’SU:';', T^?, ' -GfiEE'i* . T70i'i(lF ImaGE'i 
V ,}• 'PAPITV* , T^v, ' U 'G-R' */i 
.->y,^SbO^';^(T^, Ti?,*A"ijbL''i T2l»*AC'0,* T2 a,'DEL^TED'i 


T ' / I ' t'fcl.tTS ’ I 

T ' A^;^,LF' . t‘ 53 ,'AH 1 T ^ ' vJMBPR ’ i 

T",:! 'RcCIO'POa’. TcRi ' -'L ••C <i> ' ) 


T 71 , 'RECTlRD 


c'aTP'.'K 

•'R1TF(P. 20(^5 

L lYRi JOav, a:j, -'Fr,, CVH, ODAYi ANGi 

L a:-'. -.RFEr , •'.pECR, RpT'^R, 

■>cr F 2 R“Ar < 1 '^. T'i, 14 , T 12 .I '. lx» 13 * T 21 .I 2 , T 31 ,l?, 
C T3,5il?« I'x* n, (47, IX, TS>,I4, T64,I2 i T73iI3» 
c T» 2 *n, T 9 i,in 

U"FS s I. I'-'E 3 ♦ 1 
IF (L ,GF., b-) Ll^tS s U 

GETjli V 
r 1 r 


I 


1-8 





1.2 SUBROUTINE DIRCRE 


rZFTi^AN 

IV-PLUS 

V02-04 12;24|20 

If-AjPO. 

ftn 

/TPr'Li'CKS/8P 

ocni 


S08P7I.ITINF nncPb 


c 

(GEGM)M, JOaTD I IiMOCY 


c 

.nsKNUM, TaHD'i.\, M'1| N7 


c 

.KDX 1 0I5flTL. JD 


c 

.‘•aXL'^D. ORLI't. riPw’Jlj 


c 

.LU^'I-’Ai 


c 

) 

0C02 


I'^PllClT liviTtGEP (A«£) 

n 0 0 3 


L"iGlCM.*4 jnAT6 

OOOs 


DlMFN.SplN TPtiO>/>n ,^,?0 ) 

0 C 0 5 


!'I V' $1'^^' 21»i»PL (256) 

000*. 


DlME\Sir.'N 

0007 


DI8F^^I<)^ JO(2) 

0 0 0 r 


Dl8r■ i'^t7^ ivr'Fxr;?, 

r '•■ r. n 


C2'r,N /FKiPru/ '-.K.rPfL 

cci: 


I^PTy « 0 

0011 


r«i'"G( s C 

'■dr 


•■ptc**' * 

0 01 S 


i<DX = 200 

0*14 


0.1 :’7co “s 8 1, /px 

f>ni t; 


•'PI. l -.f- s NiS 

0C1 


ir ( I i-'S) .LC-, 0 ,1-" 

0017 


If ( r :iK-xF(i,MS) .Fo, S‘-G ' 

001‘' 

c' 7 0 ^ 

COM I' -.1* 

0019 


ir ( 1 'pTy ,pq, ■) ) T'‘ 90' j 

oor; 


!;pl. 1 '(•• a I“pTY 

0021 


LvOPxf l1 . It^O-TYJ « SPO,r .j.- 

pr ?p 


iKOr'^r <2, r'PTY) s •■PaC\ 

0223 


ir r.iisxTL(‘'PACY) ,lt, '^axL' 

nu?4 


U ^ ^ 7 ' > [- O' s 1 # 1 

oo?*? 


kPmC>< a 

0C?8 


ir (uIsktluh) .lt, ■■'axl.'-) 

0C?7 

276" 

CM.Tl' jF. 

0028 

27/r 

C ':jr jF 

OCO ) 


\T:i a '.Ti* ♦ 1 

r ^ T 


ir(‘.T/.CiT,?ii)9T/s2'' 

0C31 


•l!?3"TL ('JPACK) 8 LISKTI ( ) 

003? 


(l,„Tt.) 8 PAC* 

CC3 3 


T’9"; J2,‘'T'') 8 

0034 


T/,;r ■ '3, 'T'') 8 J-(l) 

003i: 


T.'UL," (4,' T’) 8 j-.(2) 

0C36 


T'^HT f 5, LH) 8 1 -rTY 

0 0 77 

2778 

C ■'•jTi ■ iF 

0C3n 

280" 

cr^Tj • ,ii- 

0039 


G.-' T.'O 4'’0'' 

0040 

iPUO 

C: .'JTi: ,|L. 

0041 


'Y»ACx 8 I-:l)Fxr<2,"'Pl r'--) 

0042 


ir ('-Pack ,po, 'i» t 

CC43 


:j"3i = i 


29«AU6*77 


C044 

0345 

0C46 

0047 

0048 
0 04 9 
00‘>') 


I^'PTY 

JZ 


.to. 

3000 


0) 


D) G-* T2 2775 


T;j c77u 


4 300 


MT/ s -TZ ♦ 1 
1P(-.T’.GT,?0) '.T v*?*! 

rTk?) s 'FAC^ 
T-.’Ov {?, ,vT?t) s ScOmlM 
TAn!\r.(3, 'TO 1 

(4,-T'’) * J^l?) 

T->Fr,v.j{5,..iT'») » UPLl'lF 


PAQE 9 


IMPTY * tv.S 


1-10 




I 


OK’K-'y.M, P\r,E IS 
i’' ^wiv ality; 


rBRTRAN IV«PLUS V02-04 


12)24120 99«AU6*77 


PAQE 10 


MRlTg(l9|300) SEQnUH. DSKNUHi MPACK 
■Q.aMJLT-<iHfli 

• segment NUHRER ' ilAi ' N0T P0UNO 0fJ • 
_ _’TjiIS_0ISJ5 

• this SEQME^'T IS 0N DISK PACK •, 13) 


SKIPPl ■ 1 
return 

9Q1D CGN TlMuE 

HRITE(i3,«0Q) SEGnUm 


C • The DATA D1RECT0RY FILE IS FULL,', /, 

C _ • SEfiJlENT NUM0ER *-4-lSi ' CANN0T BE ADDED T0 THAT FILE') 

N^G3«1 

SKIPFX?! - 

CALL r)USET(LUNlMA,ril,l> 





» ' I 




I."* SUBROOTINE DELEAT ^ 

^ __ 

r^RTRAN IV*PlU 8 V02-04 l2l24|27 ?9*AUQ«77 PAQC 18 

-ItlAUPD.J'.lJll /TRxgLgCKS/HP-, 

0001 suBRauriNE peleat 

- C ($£Gnum I JOIIE I. DIRAYTl 

C 0IRU04, OIRWRCi DRLlNP« HEADER 

c «maxacDi howl 

' . C iCvR, DOAY 

C »J!i25a . . - . 

C ,GRE£n. ANQi a2^ 

C .40 

c ) 


0002 

implicit integer (A-2> 


0C03 

Logical*! oirryt(512) 


0004 

LmQAlLtl.SEQIl£LJ3DL_- _ 


000(5 

L06ICaU*1 ACONUM, dflag 


0C06 

L0Q1CAl«4 JDATE.KDATE 


0007 

LQ6ICAl*4 DIRLQ4 (126) 


ooca 

L0GICAL*! HFAn69(306C) 


0009 

OIHE^Sia-- DIRWRD(256) 


0010 

t>LHi‘'Slai:. 1 CAtL£i 


OCll 

rtHE\s!0Ni JD(2) 


0012 

■■ HDwd (1530) 


0013 

'?'g «'aD/ acon;ih, rFLAi 


0014 

/'isXREC/ 'RFC 


0015 

EO"!VaLE“ICE (KnATk.KOAY) 


0016 

_ QA.Ta SiGLEL IhXa 

IHIa. _ . - . _ 


C l^-iC# 1H3, li^O. IMP, I*-,. 

C , iH , IH . IH , 

C 1" I iw , IM . IH , l'< , 

1M3, IHO. IHO, 1M3, 


C IM.I IMP, IMA, IHTi IHJ, 

JMl, 0.0/ 

0017 

KDATEaJD^TP 


o:ie 

. rjXL. Lli^.RLi'iE) _ . 


0319 

REAT (2*NREC) DIR'JRO 


0020 

IF (D1RwRD(1) ,LE, 0> DIRWRD(I) « SEGNUH 

0021 

IF (’3iRBYT<4) .of, 0) Gi0 T2 

1100 

0022 

aiR9vy(4) s P 

f 

0020 

lion C0NTl’:uE 


0 52- 

ACO'JU- • Dt-RYTM) 


00"- 

IF (DiR9v’(3) ,GF, 0) Se TPt 

1150 

c : 6 

oiRgYT t3i ■ g 


Ow 

115" CaKT*‘;uE 


002;. 

D; in •*i,ACQNLIM 


0029 

10 ' *( J'ATE.EO.niRLGAd^inPjJ 

7^5 92C0 

03:^0 

f’FLAS • niRBYT(3) 


0031 

green m HEAPER(?244) 


0032 

A\G t WDwDdlOl) 


0033 

CALL SI4AB (ANG) 


0034 

A21 ■ HEADER(2170) 


0035 

A21 • IanO (A£1,«377) 


0036 

Ail ■ A£i . 240 


0037 

Ai2 ■ HEADER(2169) 


0038 

42? • lAND (A22, **377) 


0039 

A22 ■ A22 • 240 


0040 

423 • heaOER{216«) 


0041 

AfJ • IASD( A23i •*377) 


0042 

A#3 i A23 - 240 


0043 

A2H t (A23 • 100) * ( A22 • 

10) * a2i 

0044 

NAQ ■ aCQNUM 



1 - 131 ^ 

I 



r0RTn*\ 

lV«Pi os 

VOP-04 I2l24|27 ?S»A jG- 77 PAGt 

Ihi^PD, 

FT;,! 

/TRlBLt*C<S/'>.P 

0045 


IF (DFlAG ,rt, 0 .AM), NA.) ,GFi hAXACO) Q? T0 9000 

00«e 


IF (DFl4G ,GT, maxACO) r,^ T7 9100 

00^7 


K CiFlag .‘=0. 0) GP T.1 i^on 

004B 


IF J\AU 'IFLAC) Ti. 13?f 

0045 


niRftVTO) ■ 0 

00^? 


'iEU'J ■ ^ 



«-»ITL(i3,i 37) SFO*l^’, DFU-'Q, ' Ag 

0052 

iJr 

F?R:*aT Cl'-iO, 


c 

• T‘^fc r-FU^TC FLAii F iH SFG"B^'T M)««ER '• 


c 

T‘', * I*: SfcT t: 


» c 

K./» 


w 

w 

• ThfRc are • hLY *1 I2i • ACOyiSTnsS stored • 


c 

' THt;- Mfc . AC'-UtS''^;' '■ILI. ADDFO ' 


c 

• a' L) ^ELLTlfN <^IUL Ta^^u PuACE*) 

nc5^ 


g? T ib-r, 

0054 

IIS'* 

Cv'nTi ' <jfe 

0055 


!F ( /aO- ,feO, DFl‘!*) T- U'O') 

ro5ft 


* • Ali » 1 

C057 


D/ «0T' JJ « mv,, 'A'? 

005-^ 


ur s jj * 1 

0C5V 


Lr s { ( -AXAC^ ♦ 1 ) * 4 ) ♦ JJ 

CC5'' 


l.i s 1., ♦ ‘■AXApr' 

cr'-i 


u? s (•■•AXACP • 3i ♦ c * J.' 

PC42 


M", » t - ♦ 1 

0CP3 


yn c ♦ 1 

0Cft4 


•■*« * H ♦ 1 

0C6? 


y-f 5 17 * 

0046 


IF ( JJ b, 'FLAi') ’j? TJ 137-^ 

0C47 


-r « l'- • 2 - 1 

CC*^ 


* 1 

CC4V 


-y-' a I r /,RD(KD 

0J7C 


"TAy ■ F) ? RUR:' (*"■' ) 

0071 

137r 

C.'KTl'-ufc 

007? 


■JIFL34(LD) « niOL'-4( If) 

007i 


UlRFvT(La) ■ niP».vT(Hr,> 

0074 


LiIB'^vT(LA) ■ ;?IRoYT(MA) 

0075 


3i4k“<3' (t») s b»R*f'r,(.y?) 

0076 


c^^T^ .>■ 

0C77 


c:'‘.Tr i,r 

0C7H 


NAl a 'AQ ♦ 1 

CC7'; 


C.’vTr -6 

OCf 


IF ( TI A'l ,fcT, u ) r ,. T • 1 650 

Clf-1 


IF ('fLa', .K'^, • T2 16»;'I 

c:^>: 


'■N s At'.g'UM * 7 ♦ 1 

nif i 


'.Y'- * ■.•H'*7ij 

COM 


JD'V a 

COM 

1*5- 

C;M,Ti‘ jF 

ecM 


^ r » ' A ♦ 1 

cor; 


.•'5 * (f “AY ACT * 1) « 4) ♦ \Ay 

COf 


;..A « ■!'; ♦ ^4XACr. 

CC«5 


-.7 1 C-'AXAC’'' • 3) * 2*VAj 

007 ■ 


riRLT4(*iL)) • JLiAT: ^ ^ , . 

CCt'l 


J « jrio 

007? 


I'l ’'.'':'<37) « jno) ' hM'AUIy 

0053 


J 1 k ‘ vT ( r.Q ) a 5RFb* 

0094 


1'IM5VT('A) a A-J'^ ^ 


1-14 




F0RTRAM 


OIRHRO(Ni) ■ a2h 
- IP (OyR .EQ. 0) 
Encode h, i70. 
EMC2DE (3i 173. 
EnCbDE (4, 190. 


I 0) 10 T0 UOO . 

170. SEGOELdP)) DYR 
173. JEEQELIEsn DQ^Y 
190. SE0 DEl(14)) rEqnjr 


179 r0RHAT(13) 

FEAfATlH) 

00 1900 FN a 14. Z2 
. .. IF ISeGD6L(Fn) ,eo; 
i9or c0ntimijE 


TYPEa'0LD» ) 

CL7SI- <Uf'lT«12.Dl5PiSEiM:^ETfe') 
C?NTl‘vufc 
RFTUB'; 

CP\Tl \uE 

M1TP(i3.9QQ> SFSmlim. yx 

F51RM4T (mo. 


M 8EG05L(FN) a to* 

SIIEL. ACC£&Sa«nw£CJJLx 


•5P«CR IN UELS4T •»./ 

* THE DIRECTFPV FILE 

* Oe'ES ''0T C0-.TAIV A 

* there A75 13. 'A 


0113 


_«aiitai. 9 ai)srAY 

C 114 

901 

reP;jAT(/' ACCUSlTl 7 i 

0115 


G?'Te 9999 

0116 

9100 

CPNTI'uE 

0117 


dfl * dflag 

OllB 


WRITF(i 3 , 91 P) SEGNUH 

0119 

01 r 

JL 2 MaT dMO. , 


C 

• THE DELETE FLA! 


C 

• IS equal T 0 '. 


c 

* Yhe HELETE FL: 


c 

' The PR 5 IQRA'' i»' 

C 12 C 


G? To 9999 

C 121 

9200 .. 

C 0 N TI M'E 

0122 


WRITE(i' 3 . 9 ? 0 )KnAv,Si 

0123 

920 

F 0 O»aT</' ACQUISlT 


c 

' IS alrfady im the 

0124 

9999 

C^NTp'UE 

0125 


N 0 G 0 s 1 

0 J 26 

. _ 

lh2-. 


F0R segment NOMSER 14. 
I'feLETfc FLAG', /, 
krjuisTie'jS' ) 

u,'*' rt-fasseT*/! 


; F3R 

12i/. 


, KOAY 

’l6G“b^f~Nl7M0ER’' , 'l5." 


i*. RAvGE FR 0 H 0 « 6 *./» 

(-•T PeZCESS ACOUISIT 10 N*, 2 I 4 ) 


2 M,' F0R SEGMENT*, I 9 | 
k BASF— file BY-PASSEO') 









1.4 SUBROUTINE RDDISK 

F0OTRAN IV-PUJS V02-04 
IMAU PP.FTN /TRiBl 
0001 SUBR0U 


12124141 ?V.auG*77 



0004 

0005 
oqn^ 
0207 

0006 

0009 

0010 
0011 

0013 

0014 

0015 


SUBpau^INE RDDISK 

tLUOi JDAlt ^ SESWSi TF0R.M, 

kEaDEPi tiUF. <^UFS2 

1 DIRwpD, DIRBYTiOIRLG 4 
,KriX, DLSKIP, MAXCHM 

.maxacd. NDPTS _ 

.segnum 

j^pWD, HRLIME 
) 

. implicit INTEGPR <A-7) 

L0G1CaL«1 

«B:jFS|). McaDER(3 


IDaTa (196,4) 

,0I«eYT(5l2) 

,SEGjn(30) 

L0GICAL*! DDFILE (29) 

L3GICAL»4 JOATE 

_L0G.1J1AJ.»4 DIRL64 g?6) 

UIME^'S10^ DlRWRn(?56) 
niMgKsia'' HDmo(i53o) 
niME\Sl0‘i SG(2) 

„ C0HHCN / J0LP/ 10, LP 
CawMf.Nj /‘'XRR/ VXPEC 

CgWHy'-M /.MEXREC / ’>PEC 

/AD/ ACQNib'*, OFI.A'I 

C0MMC'v /STATUS/ S<2) 

/HC0M/ 

S = , SE, LS, ;.5, fJRPDS, :-jDSPR, 

NCpP, NPPC, A'CL, NC, ns, 

•JPI T, D7I . NCaR , SVn , RSIP, 

pSkIP, WSI2, CALP, C6RR 
:)ATa 0LDSEG /O/ 
data lO /5/, LP /6/ 

data DDFIlE /IMD. IH^, m2, 1H|, IMC, ih3, IHO, 

mo» IH,, 1H3. IHO, IhiQ, 1^^3, iw , 1H , 

IH , IHD. IHD, 1^0, iHT, IHS, IH., IHD, 

l-iAi 1HT7 IH). iHi, m / 


0019 

0020 
0021 
0022 
0023 

100 

Fll ■ 0 
Lur ■ 7 
SHFG = 1 
ENC0DE (4, 100 
Format (14) 

0024 


Pe lOi 1*14,17 

0025 


IF(DnrlLE(l) . 

0026 

ior' 

C0‘.'TInUE 

0027 


0PEN (UNITpIC, 


■■ ACcESSp'DIRECT* ,maXPE''pnD'»TS, REC0RBSlZI«l3, 
A';S'5CIATEVAP1 AELE-iNXREC) 


CALL CSET (LUO, ", SEGJD, H 

call ^-peao 

(LuD, HEAOEPm eUF, 3072, 
TF0RM, 0, PRTV, £?F, SHFG^ 
IF (CERR ,0E, 1) Gl3 T0 9100 
CALL FFIND 


(LUC', SS, LS, SE, LE 
TF0RM, 0UF, BUFSH) 



1 


l 

t 


F0RT«»AN 

IV-Pl.US 

V02-64 12124141 59-AUG-77 

page 18 

IMAOPD, 

FT) 



0032 


IP (CePR ,GE, 1 ) G3 T0 9?Jl' 


0033 


CALL PfitSET 



C 

CMRWRD, DIR5YT, DIRL 6 «) 


0034 


3000 1 » DLSKJP, ll7i DLSK.IP 


0035 


:i0 2''00 1C s 1, iAVCHN 


0C3c 


CALL L^ 6 Fi* - - 



<• 

(L'JD, PATAU.m, ''UP, b!jFS«, 



C 

1 , Fll, pt^TV, IFHF, TF3PK., IC^ 


0037 


IF (CgRR ,'iE, 1 ) OP T3 9301 


0038 

2000 

C--?,mTi :,|£ • 


0039 


CALL (lUATi, ’JiFlLE) 


0 c 4 1 ; 

3000 

C^Tr uE 


C041 


CALL CLUSt (10) 


C04< 


IF (!'FLA'*, ,UT. 0 ncLAU ,LE. ACQNUM) CP 

3500 

0043 


IF (aCJ^U" ,LT, M.‘<ACn) A''C‘'U:- e aCCMJM ♦ 1 


0044 

3 5 u t 

C^NTl uF 


0045 


D 1 RPyT c 6 ) * ‘ 


0045 


21EcYT(3) » 0 


0047 


T'LnsEiS = SFfiMi^' 


CQ4fi 


CALL r''^CLii'S (L'-'L) 


0044 


CL:*sn (L' IT = P) 


OO’ii'’ 


■■)PfcN(i.?ITs 2 , r,iAM = s« [30.!, <0 Jn 1 RF I LB 1 lAT 1 1 ‘ , 



C 

TVpF3»2L1'i A('CESSs*U!9FCT' , 



c 

A^Si^CI ATtV4'’I K!Lt = NFt:, *iAX«fcC»200l 


0P'5l 


FFD {?'"!9Ll‘.'t) 


0052 


'9lTt-(?'-'REi;)DlK.hD 


0053 


PETh'^A 


OQ54 

VlQC 

C>Tr t E 


0055 


!*'RnE (13, 91Q) i UP 


0056 

91C 

F?R^!.aT (IM.O, 



C 

tOpiV • A FaT\u '»»aS RFTUR’;cD 

BY HREAD 


C 

'•'hIle tkvis'u t,-' 



r 

• TW£ HFAnER ‘■'FC/KD 2 Tnr ipaGE TAPE, LUN s », 12) 

0057 


G0 T ‘^9 00 


005‘ 

9?.'jr 

CPNTI 'ijE 


C059 


s'9 Hi: (13,920) LU'' 


0C6U 

9? . 

FOR^'AT (I'HO, 



c 

'E’^L'ISK ERR1R > A Fatal FREPR -iAS RETURajED 

Q Y , 


C 

• rFi;.j 3 umIlE TRVI.i-T t,> P-;-61tI0:'j» ,/, 



c 

• THE IMAAJE T'F). -L"!^ ' ,12, 



c 

' - TP The STRTI^.I SPa-i lIhE N'JMPER ') 


0061 


'u) T ■ 


0062 


CPnTI 'li:; 


0063 


aRIT»;( 1 3,930 ) I, 1 Ur, Ir, 


0064 

£130 

P-irmat (It-'O, 



r* 

•RpOlSK ERRPR • A FAT>t i<AS RFTl'R’-'En 

BY lREED 


c 

••'HILF try IMG rn RfcAG SC A' LI\E NUMBER 

13, /, 


c 

' ,!*• IMAGE Tape 12, 



c 

» CHA^'NEL was s * , 12' 


0065 


GJ) T"! 99PC 


0066 

990n 

Ck'..!T I ■ 'lE 


0067 


ST”o 4 


006d 


F iv r> 
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SUBROUTINE SRDISK 


TiJRTRAM IV-PlUS 
jMAUPg.KTV; _ 
OCOl 


! V02-;'4 12I24I'S3 29«A‘J£ 

/IPir.-LiiJt^S/wP 
SuaPi(?^'’’lNP SRniSh 

JDATE* 

SgGavTi 

biE-iJO, t-EADER, i' FS2, lid 

.'^wi ^ECm\UH, IYR, Ji'-AY 
^rsKNUM 
.‘-^rnL 

, •! A^C JM 

.'•xCHAiJ, JDT, Fll 

.‘-TMTrG, 

) 

MPLICIT U-i*) 

L0'’tCAL*l 

t^’f( 3 n 7 ?) . yE/>riPR( 3 f' 6 '’) , 

S’ (?) 

,St;Gjn(30), Si‘C.'‘YT(A) 

L’GlCAL*4 jriATE 

MD'-'p ( 1 ??U) 

’'I-':- Sl2' JDT (2) 

CiV'f ■' /SKIPTL/ ”‘‘!PFL 

S"', SP. L'r* :.’C<;PR, 

KiPPc, A' CL, LC, \S, 

D!*I, iVi-, PS 1 ?| 

P>|\IP, HSI£, PALP. "EPR 


J.f 9 Cf ’0 


ODOT 


L’ALL 9»'HPAP'("U0,'i 


c 

,» T i<Tp ^ j U'-J I T ) 

PGIO 


rr ( ’c . E. -Avc^ 

con 


1F«F :p.pIL .liT. C) 

0012 


IF ,GT, 0) p. 

CC13 


StOF *:■ s HPui: (34) 

0014 


CALL S’'AP 

OCl?) 


IDAV 3 HF.Arh-(7,:> 

0016 


IM'*:, 3 M=A'ib’-^(7v) 

0017 


lyc = 

001? 


CALI J’JLIA'* (IOav 

0019 


(?, 170, 

00?L 

• 

i3, 175, ‘•'i 

0021 


LFC’''F. ( '(,2011, SEP-. 

0022 

17'' 

F»-‘-‘ -T( I?) 

0023 

1 7«? 

F,(£'- AT< I 

0024 


jDT(I) s lYt 

002b 


J.lTi-) s J"iAY 

0026 


"13 1, ‘^■"0 ii,| c 14, 

0027 


!F (f pL) 

0025 

IRQ-l 

c.iivTr-. 

0029 


t'lC'FpF (A, 2 fo, s:- 

0070 


F!?Si'aT ilA) 

0031 


PFtI'F.. " 

C032 

9r0i* 

C7\ir !,e 

0073 


'•RiTt (13,9nO)L"M 

0 C 3 4 

^ W U 

FOR^-aT (IMU, 


C 

• b’^ribK FRRiP 


c 

' vhIlF peapin ) 


c 

' PECiiPD L 

003i? 


STH' 5 


•) 5 EGJ;,(f«i:L> 

















1.6 SDBROOTINE JULIAN I 


raRTRAN IV-PLUS" 
■IMAUPD.FTN 


0001 

0002 

0003 

0004 
000$ 
0006 
0007 
0006 
0009 
OOlU 

-5M1 

0012 

0013 

0014 
001 $ 


V02-04 

ZIAiPia CK S/ HR 


12125100 


29,iu0»77 


PAOE 25 


SURRPuTINE JULIAw <IDAV| 1M0n» jdAY, IYR) 

NflAYS 021 

data ^OArS /31. 28. 31. SO. 31. 30. 

31. 3l. 30. 3li 30 1 31/ 

LEAP • 1900 * lYR 


■1200 


ir (LEV6V ,EO, 0) NDAyS<2) ■ 29 
-_JDA.V 1 0 

IM ■ IM0\ . i 
_na_i2oo 1, iM 
JOAY ■ NOAVSd) 

CgNTlNiUE 


♦ JOAY 


JDAY a JHAV • 
NDAYSJ2). a 28 
R6TU’^^ 

IMO 


I04Y 


, -X. n-v 

Oli-li'L-:' 




1.6 SUBROUTINE JULIAN 

A flow chart of this subroutine is not available. 
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1.7 SUBROUTINE FILEST t 


^ if 


rSRTRAN 

IMAUPO. 


0001 


IVaPLUS V02-04 


12125102 2«aAUQ-77 


PAOE 27 


SUBPSUriNE PlLEST 

C iUPi TFPPMj JiUfL_fUrs2, SEQJO 

C .T08DPN, NT0, ^^TMTFOl UNIT 

C .PCi »Ci PC . 

C .N0&|J 

C .ru, SEGNUW 


) 


0002 


t?lPj.IClT INTEQ6R (A-HJ 

0003 


LSGICaL*! SE6jn(30) 

0004 


UBGICaL*! 9ur(Rurs?) 

0005 


OlMErtiSiSN TT'BDSNC 6i 20 ) 



D1HENSI0V ERR(2) . . 

0007 


data nSkb /O/ 

0008 


data Rwo /O/ 

0009 


RC t 0 

0010 


PC « 0 

0011 


PC t 0 

0012 


CALL n'JSf--T (LUNI'IA. nil 1) 

0013 


CALL t20R 


C 

(L'JD, SEGJD. 240 , IJ.\!MA, VT^<TFG| 


C 

U'-lT, Nr, BUF. 3072, TF3R'-, RC, 


C 

PC, BC, ERR 


c 

,R^D 




0014 


IF ( F»R(1) ,EO, 1) Gia T> 9100 

0015 


IF ('JpGa ,EO, 1) TPSnFVIo, 'jTfl) s BC 

0016 • 


BETuR^ 

0017 

9100 

C3\Ti\uE 

0018 


yRlTE(13,905) FRR 

0019 

90? 

F^R^aT <1mo. 'ERRl 13.' ERR2 ■ ',13) 

0020 


WRItR( 13,910) Lun, spgnu> 

0021 

910 

FPIRMaT (IMO, 


C 

' FiLRST ERR0B - A.M U‘REC'» VEP aBLE ERRCR 


c 

'/-HlLB TRYING READ I“AGt CATA ', /, 


c 

• FRTih THE CISk , ' , /, 



' Lun ■ ' 12./, 


- .. 

C 

' segment MJM6ES ■ *, 15) 

0022 


^R1T6(13,915) 

0023 

015 

F^RKaT (IHQ) 

0024 


STOP 6 

0025 


EnC 


< * 


X . 
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SUBROUTINE RDHEAO 


rSRTRAN IV-PlUS V02.04 


12129105 29*auQ*77 


PAGE 2* 


0007 

0006 

0039 

0010 

0011 

mi 

0013 

0014 
0019 


r 

subroutine RDHSAOtBUPiBUPSiiHBADEBiENOPILi 

iflUTfa, UfJlTJ 

iHPLleir INTEGER ( A»2) 

L0Q1CaI*1 BUPi HEADERU06(n ^ 

.riL'^AM 

PlRgNSieN 8iir_LllLZ2l 

common /status/ S(2) 

CPMM0N /HC^H/ 

SS, SH» LS, LPi NPPOS, VDPPR, 

NCpP. NRPCi AmCLj NCi NSf 

nbit, dpi. ncaR. svn. rsiei 

PSK ip Z . CALP. C£BR 

common /SKIPFL/ SKIPFL 
DATA Uu^lP'A /!/ 

OATa S«IPFL /o/ 
data r*d /o/ 

TFORMtl 



fn»o 

Fll.l 
CALL nsFT 

(LU^I^'Ai ril, FIL^'AM, 

mTmTF3, unit, SKIPFL. R^^D) 

- S!UPFL«-D - 

CALL hPEaD 

<Ll’^I“A,heAO£P| BI.'F, 3072. 
tFjjHm, ni. PRTV. IFOr. SwfG) 

SKJpFL « C 

IF(IE;{F ,GT, 0) Tr 2030 

ENDF 1 l »1 , , 

return 
CBNTI f'.'ufc 
RWD « 2 

1F(CEPR ,GT, 0) r.O T<? 9030 
RETuRi- 

C?\Tl \u& 

WRITc(f3.900) LUnImA 
format (IMO, 

•RDUNIV EfiRPR • A FaT»L cRHOR WAS R8TUR 
•x'hILE trying Tf* READ'./. 

• The header RECPRO TuE image tape. 



ur!tE( 13.920)CERR 
roPMATdwOi »CERR«' . 13) 

ST2P 

EnP 


WAS returned by HBEaD 







1.9 SUgftOUTmB PRESET I 



HF0RT R4N 1V»^LUS VC2«Q4 


DDD0T,rTN 
0001 
0002 
CC03 
C0C4 


2i*m.83.2L 


-gAii-i 


000 ? 

O0C6 

0007 

OOOS 

0009 

0010 
0011 
0012 
0013 

oon 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 


C0?3 

0024 

0025 

0026 
0027 
0 025 
0029 
003D 
0031 
0 0 32 

0033 

0034 

0035 

0036 

0037 

0038 

0039 
004C 

0041 

0042 

0043 

0044 

0045 

0046 
JU14Z 

0046 

0C49 

0050 


30 

40 

45 

50 

60 


/TR|Bl0CkS/w» 

8U8R0uU^i P8£SET(DlRW0iDl^ta0iDl«Ml ^ 

implicit INTEQER(A-2) 

. -Include 'syicsoo.sjcamsparam.inc* . 

parameter ‘^AXCAT>60|MAXSUBa60|MAxCHNa4,NPlXii96iNLiN«llT|RAXPLOa90 

i^MAXV«11.NPgTSi2B9.PLSKlPalQ. BS8KlPR10 . WAXACaa6.MA»ACCa4i 

2NiSPWDB6iN0DTWQ«lO 

. ...LBSlCAtai LlNE(NPmMXCMl!lli.VlCTaR(NAXCNN),L06REC(92)t..- 
a DlRu0&(9l2) 

-DiPENSlC^' DOREC(261«iO)L0C{AJ.aYL2C(6)<DIRHP(29«) 

lNTEGEPa4 ^ I r ] 4 ( i 28 ) , OATES (6 ) 

■ XDDfiEC«lggREi;l 


69 


i<40RD L0CATI0N 0F OIB 

t&YYE L0CAT10N PF ACQUM1T10NS 


rata -DL^C/5,9,1S,17.21#29/ 

OATa SVL’C/5,l3i21i29j37,45/ 

PaTa N»TStT/-9/ 

SE5‘ i;h«D!RwD(1) 

nraDivLao(3) 

AC2lt?!aPl3L2ik.(!n - 

HOaTF'DIRIACIA) 

CF 5 I»1.6 

OA^’CSd )aD!RI4(I*l) 

YC^RTiO 

4iAC0\M 

IFU .eo. Q u A«An 

REC«;j 

RETu^*" 


FNTfiv - 

•'C'RniYC-Rr^PLSKTP 

IV. l5c laDSSKIP, vPl)/,,DSSKl? 

PEC»RFC*1 

02 Z'^ J»1,haxC^'N 

VECT?a( jj.Ll'JEt I . J) 

CF'71\UE 

?F{AC0^M) 160, 40. 50 
XC?F'*I 

L.'0>.Ff:ti)«xc'’Rr' 

L2GRfeC‘2)aVC''RD 
'12 45 J«3,52 

LaCPEct J)a\iiTSET _ 

rijKTd.UE 
Oa T3 60 

PEAC«3'PPC) PDRE'" 

IF(cr ,GT, 0) CALL S0UEE?(0 CrcCi ACQNM, DF| MDLPO 
<<«PyLaC< 4 > 

oa 65 Jali“Aji^^JN 

lanRE:(K)BVECTPH{ j) 

KiK*l 

CZ^'T!\UE 

CALL KAU^HCVEC^aPiGiS) 

YaWCLaC(A> 


OnPEOf^^DaB 
-RItE( 3«R£C) DTREC 
XaIFLO(0<fiiDDREC(in 
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FBRTRa'J IV-PLJS VOP-04 12125136 ?9»AUG-77 PAGfc 2 

DDPaT.rT’' /7 H|Ol2CKS/'^R 

0051 PM,\T 12r,,y,L^i^n5o(2),LP'iReC(A),U03RHC(4) 

0C52 I2fj ra'’xiT<lM0,*Xi'|t3i2X,*Yt:*,l3f2X,»TYPE»’iI?i?Xi'LABEU«M2) 
0053 PRU-T 125ia'i3RtC(J>.J«5.e)»0UREC{5),D0RFC(6)# 

J=13,i6).PDREC(’?).DpKEcaO). 

* a?t,P(rC(.J>iJs21.?«).PD'’Er-(l3)»OCREC(14),<L’'GPEC(j).J«29,32)i 

* PC^E^(17)iDDPEC{ieli (L^GPECJ j>iJ»37,40),riDReC(21)|DDREC(22)i 

* J). Ja4S,4£),DDPEC(25)iDCREC<26) 


0054 

12«- 

T' '’i>4T<5X,16I6> 

0055 

la? 


0056 

16'' 


005/ 


“MP 
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( 


( 


( 


( 

( 


( 

( 

( 

( 


1.10 SUBROUTINE STRAYS 

SUBR0UTINE ST*»aYS 

C (DiSKeN, TObDB^. OiRwRn, DIHOYT, ^Ti^ 

c ilud, header, 

C DSKNUM, 

C BuFi 9UFS2. If'DFXF, inXPYT, SFGJC 

C ,*<DX, DLSXIP, MAXCHW, HAXACn 

C .lumma. klIne 

C ) 

P^PLICIT integer (A-2) 

L0GIC*L«1 DIh3yT(>512) 

L0GICaL*1 HEaDeR(3060) 

DIHPN<?I0N DISKeN(io) 

DlME'SIiJN' head(23) 
dimension T'^BneN(ft,?u) 
blMENSlCN DIR>!RD(256) 

Ci5Mfi?N /'IEXREc/ mREC 
IF(vT.'* lEQ, 0 ) Ga T? 9QC0 
D0 7000 KO s 1, 10 
CALL TRWO (lUnIMA) 

IF <DISKHN{K0) iEQ. 0) iia TP 7000 
NTRY a 0 
6000 C?NTI\UE 

PRINT 600, OlSt<0N(KD) 

600 FFRmAT <* MiaUN'T niSK PAC< MUHSER », l3) 

PAUSP *Hi'U^T NfcW DISK' 

HEAD (4, 605) PEaD 
605 format (23A2) 

DECiJnE (4,610, HEAP) DSK'iUM 
610 F/RmAT (14) 

P (DPKNUM ,EP. DlSK0^'(Kl)) ) Gifi T- 6300 
PRp'T 620, ^SK^UH 

620 Format (ihq, 

C ' disk PACX 15, • HAS BEE ! HeiiNTED*) 

IF (imTRY ,EC. 0) Gfc TP 625C 
PPl-v'T 625, piSkON(KP) 

625 FPRhAT (IHO, 

C ' disk PAc*< heater has NfT C'’LTAI'vEc THE CPRPECT • 

C 'DISK PACK (gUMREP l5, 

C • - AFTER T>^0 TRIMS' ,/, 
c • pr'^qra'''* '•'III cpntjmue*) 

GP U 7000 
6250 continue 
\TRy a 1 
Gf- Ti» 6000 
6300 CPNTI-'UE 

D^‘ 66"0 KP a 1, NT0 
IF (T'/8D0N(1 ,Kf) ,NE, KD) GP TP 66i)0 
call TAPSC^' (SEQA'UH, TPHri0N(2,KF) ) 

CALL r-ELEAT 

C r;£GN IM, DFLAr,, JDATE , AC0‘ U‘ , CT''nYTi 

C DIRLG4, DlRWRn, DPLINO, HEAL'fcr- 

C ,-AXACD 

C ) 

E-xCarE (4, 630 » SG) SEC.gi.i:-, 

630 Fi^RHAT <I4) 

CALL cDDISk 
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C <LUD, TF0Rm» JDATEi SEQJOl 
( C HEADER. BUFi BUFSZi ImDEXFi inXBYTi 

C 0IRW«D, DIRBYT. PIRLG4 „ 

C I KDXi DlSkIP. MAXCHN 

C iMAXACDi NDBTSi SG 

C iSEGNUM 

C ) 

write (2»0RL1NE) DIRWRD 
WRITE <3*1) InDEXF 
AQ a ACONUH 
DF6 a DFLAG 

WRITE (ID SEQNUH, IYR, jDAY, OYR, DOAY, 
C NPECR, NRRTYR, NBlBCK, AQ< DFGi 

C GREEN. AnG, A2H 

KLINE a KLINE ♦ 1 
6600 CBNTImuE 
7000 CeNTiNUE 
9000 C0NTINUE 

return 

END 
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1.11 SUBROUTINE TAPSCN | 

SUBR01/TINE TApSCN (S6QNigM,_IBBSiS) ^ 
r IMPLICIT integer (A-Z) 

C0MM0N /SKIPFL/ SKIPFL 
2000 C0NTINUE 

CALL SRDISK (lUNIMAi TP0RH4 JDATEi SEQBYTi 
C SEQJDi header* BUPi BUFSZi LUHi SUi 
C SE6NUM, lYRi JDAY. JSKNUMi ENDFIL*. MAXCHN 4 
C MXCHAN, hOwD, jot, Fll) 

^ IF (SE6NUH .EQ, TBDSEQ) Q0 T0 3000 

call DUSETaUNiMA, Fll, 1) 

SKIPFL ■ 1 
3000 Continue 
RETURN 

end 
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1.11 SUBROUTINE TAPSCN 

A flow chart of this subroutine is not available. 
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1.12 SUBROUTINE SQUEEZ 


rZPTRAN IV-Pl.US V02-04 l2l25|46 2’«AUG*77 PAGE 5 

DDDbT.FIN /TBiBLgCKS/WR _ . 

0001 SUBPPuTimE SQUfEKDDBECi ACONMiDFtLflC) 

0002 IMPLICIT INTEQEllJl-i) 

0C03 Dl-eNSlBNJ DDBEC(?6 )iL0C(6) 

0004 «DLBCl«L?iC(Dr) 

0005 i»-DLeC2"L?C(Dr*l) 

0006 mnESlllCfiMl-Dtltt. t Mr 9feR JF BYTES T3 LErT_APJUiI. _ 

C WHEN THE OEUETED ACOUISITIPN IS REHavED 

0007 jr(\0YTES_.LF. IDHETUR^ 

0C0 5 CALL SUBSTR(nDPEC{WDL0O2),l,MjyTES,DDREC(wnLPCn,liNBYTgSJ 

0009 return 

0010 EnO 


1.13 SUBROUTINE IFLD 


rePTPA 

DpDaT, 

OOPl 

00C2 

OOP? 

OCO'} 

cor “I 
000* 
COC'7 
COOd 


• IV-PlUS ''0?-''4 lilZbiSQ ?9»auG-77 PAGE 7 

FT.'I /Th'ji-;iJ'CKS/»*r< 

FI'i'iCTli5\ IFLD(pTTP/S, •'StTSi'vV.RO 
IMtOtrl TITPi'Si r.r-wrj 
npE'ialev' ma<5K(1() 

"aTa *ask/L,3,7,i5,31,.')3.i?7.255.5U,1023,?047i4095,8191,163A3i 

1 32767, "377777/ 

’/*r;8l3^FT(i-'e^0,-' ITP'S) 

IFl n*l.Vi\n(Mi^|-,MAC^(r4-:)ITS) ) 

F\'; 
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1.13 SUBROUTINE IFLD 

A flow chart of this subroutine is not available. 
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1.14 SUBROUTINE KAUTH 


rePTRAS IV-PtUS VOg-r^ 1.2I25|!>1 ?y*AJG*77 


ddd«;t 

.FT- 

/T'^r.L'CKSA-^^ 

OCPl 


SU"K ■' 1 jT 1 '!fc; K ^<oTh ( V » Tj , 'j ) 

O0C2 


iNTP'iO^ r,,t> 

00P3 


L?f^r.AL*l V(4) 

0004 


I ' fc 1 r * ( ^ ) , K- 1 < . 4 > , F : ( 4 ) , i Y i 4 ) 

OOOS 


"34^4 >il/ i'^4j 

• -,29C,-.5f i, .^C". ,471, 

• ,l8«r, 



* .223. .;'lv.-.‘=43, .a'^9/ 

OOPt. 

C 

;i A T ft r t / 0 , 0 , 16 , 0 , 2' , c . Q / 

9007 

'j 

: :; 2 ■ ’ » i • 4 

0008 

20 

y(T )sv (n 

OOPy 

U 

j.? 4' Isl,? 

OOlu 


ran , f' 

0011 


;■> >. 3 r :< 1 1 , 4 

0912 


c«r ♦ ' 1 ) « •'(;>) 

0013 

}\ 

c. •• n- -g 

0014 


I V ( 1 ) s c ♦ r 1 ( 1 1 4 , 

OOl'i 

t* 1 

:c' 1 r 

001<1 


'■ » ! V ( 1 ) 

0017 


I s I y ( c ) 

OOli 


r.'LT ;• 

0019 





page 9 
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1.14 SUBROUTINE KAUTH 

A flow chart of this subroutine is not available. 


< *■ 
i f 
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1.15 


1 

2 


3 

33 

7 

77 

9 

5 

B 

4 

D 

D 

D 

n 

D 

D 

D 


SUBROUTINE T2DR 

SUf^Rl*UTINI: T?DR< ^LON, FM i NBlCK , TLUN, f«Xf , ONl T« MF , Bur . e'JFS2»F9lRM, RCi 
1 PC»oC,ERRi Rfcrti) 
implicit integer (a«2) 

BYTE F‘.(33) 

C0mm:?N /STATUS/ S(?) 

CawMflN /I0LP/I»’*LP 
IME'-iEP BUF(l) ,E«R(21 

integer SS(2) 

LSTL‘0 • 0 
D0 1 I » li33 
|F<FV(I),EG,* •) G7 Ta 2 
IF(Fk'( I ) .EC.P) C0 T0 2 

CALL Fu(jPE\(2,rLUN,FN» I-l.RiFLUNAaiiNELtK) 

IF (S(l) ,NE,0) G(J T3 5 
CALL TInIT(TLU"i'^XF,'JMT» 

CALL TaTCH(TLU^) 

CALL TriLE(TLU'!,NF) 

PRnTi20 

Call T«tADCTLuNf RUF(7 ),BuFS2) 

IF(S(1) ,cQ,*' 36^) G3 T0 4 
1F(S(1) .fca,''374) G’ Te 7 
IF(S(1) .Nfc.i) Ga T7 « 

'JC « Rr ♦ 1 
G« n 9 

PRrT • PPCT - 1 
1F(PRCT,LE.0 J G2 T'» 77 
call TSK!P(L‘'V#-i) 

G4 T' 33 
PC * PC ♦ 1 
PC « PC ♦ I 

CALL f VDLST(rL'.i\,BliF(5) ,PunA) ) 

CALL F‘'NXf<r(FLU\,S(2).3UF( j ),0UF(2) ) 

Uuf (3)tF 'R'^ 

BUPl4)tS(2) 

LSTL* G»S(2> 

CALL f '--siTlf LiJ'i»e"r,S(2) + l2) 
call ^■'».AIT(^L'-'^|5) 

IMS(l) Ce T ' 5 

G a T ■» 

Ewfim « 1 
PRP(?) B S(l) 

Gi: T’ IL 
EHP(1 ) ■ 2 
FRP(?) « S(l) 

Gar ’ 10 

CALL FVDLST(FLUf;#SS(l),SS(2) ) 
call FVDGET(FlUK,ERR(1)»PRR(?> ) 

J;C * 0C ♦ PRP(l) - 1 
wRtTf ( ia,lP0'')SS(l).SS(2i 
CALL FvDSET<PL'Jf,iS«;(i),SS(2) ) 

-JRlTrda, iro3)5S(l)iSS(2) 

C s 1MJN0 (LSTlNG*512) 

'■PlTF{la,100C)G 

CALL FvHEAn(rLJN»B'iF,0) 

Call FVWAlT{rLON,6RtO 

'RITC(IP!,1''0P)C 

*RlTc{10ilOOO> t8ur(l)il«l|5l2> 
aur(i), n 
3UF(?) « 0 

»RITF( 10,. if'OH) (8UF(I),I*1 ,512) 

CALL rvD5^ET(FL A*SS{l) ,SS(?) ) 

■■'RiTr(ieaoo:)SS(i),ss(2) 

CALL FVWRITIFl'JNfB'JFiO) 

Call fvwajkfuUn.err) 
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f 


D HR{TF(I0(1OOO)O 

( c WRiTg(]0,iOOO)(lUFn)it«U!l2) 


9 

i 

•% f 

DIOOO 

r0RM«T((« •.8<06«ix})) 
BRR(1J*0 

1 

t 

( 


ERR(2)>0 

t 

j 


10 

C0NT1NUE 

!F (RHD ,E0. 0) 00 TO 9000 
CALL TRHO(TlUN) 

i 

/ 


i 

i 


9000 

continue 

CALL T«LS6(TLUN) 

/ 

' . ( 


CALL rvCL0S(FLUN) 
RETURN 

end 


( 


i 


( 

( 

( * j 

( 

( 

( 
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SUBROUTINE T2DR 


A flow chart of this subroutine is not available. 
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2. DO/DU FIELD UPDATE PROGRAM MDODU, 


PR0QRAH MD0DU 

CCC 

C 

C 00/nU flLE UPDATE 

C READS and PR 0CESSES DEL PESTER CAROS 

C - 

CCC 

C0HH0N /C0N1/ UCTV«UCDl,'^EULUN&ElPiA}*lERPLG<KCRBP« 

1 IOLTE.NDEXR, ID0OU 

BT.TI 1D0DU ^ 

C0HH0N /C0H2/ lOi IDFLD(6)«ICARD(80 )i ITVPE 
BYTE IOFLD.ICARDiITYPE 

parameter NBDRB5l2iNRTR|,«4OO«NBO0Ual4»O 
parameter NwOR»256 
parameter NBD(DUE*30 

C0MM0N /BUPRS/ iXDIR«1BD1R.IXINXiLX0?U. . . 

1 LOt8l{NBTBL)iLDIR(NBDR)iLD0DU(NSD0U) 

BYTE LDlRiLDPDU 

CBMMtIN /C0M3/ ^TLD.NC00RD 

C0MMaN /FILES/ IN, i0UT,LUl.LU2tLU3.LU4.M0LNT 
C LTYPF - CARD TYPES T0 BE PROCESSED 

INCLUDE 'SYlC3D0.33CAMS£ARAtl.lNC« _ 

BYTE ISTRT 

BYTE LTYPE(20>. INXTY(7) 

BYTE I0NE 

BYTE LDATE(9>.LTIM5{8) 

data ltype / 

1 XHS«1HEi1HG,1hD,1HEi1HL« 

2 IHS.lHEilMG, 

3 IHD.lHEilHL.lUDilHUilH*. 

4 1W/,1H/i1HE,1HN»1HD/ 
data InXTY / 6. 3, 3, 1,1, 1,5/ 

T1«SECNDS(0.0» 

CALL TIME (LTiME) 

CALL DATE <lDaTE) 

7000 FBRMAT (21X,*C AMS I-lOO TATA BASE 'i 
1 'TPaNSACTIBN REP0R T'*//, 

2 SIX. ’DATE •9Al»/,81 X. *TImE *i8A1.//, 

3 35X, ‘FIELD DEFTNITIDN DATA BASE UPDATE 

4 ‘PR0QRAM /• may 77»j//) 

IBDIR*67 

C IMTIALI2E N0, 0F FIELDS 

NFLObO 
IN«4 
I0UT»1O 

C LU2 - DIRECT0RY FILE 

LU2«8 

DEFINE FILE Lu2 (200 .NWDRiU.NEXTR) 

C LUl - D0/DU FILE 

LU1«9 

C LU3 - D0T data file 

LU3«ll 

DEFINE file LU3 (ND0TS,26.U,NEXTn) 

C IMTIALI26 ACTIVITY FLAG F0R D0/DU FILE 

IACTV»0 

C INITIALI2E ACTIVITY FLAG F0R DIRECTzPY aNO INDEX FILES 

IACDI«0 

C IMTIALI2E T0 expect. SEaH£NT 

INDEXP(1)«1 
D0 90 I«2.4 
INDBXPM )«0 


90 continue 

CALL ASSIGN ( 4 i • CARD . OAT O 
CALL ASSIGN (l0uT, ‘OUTFILE'.OAT* ) 




WRiTf (ir'uT. 7000 ) LDaTPiLTImp 

call assign <LlJ2.'nt;nit300.3Q03DlRFlLt.LAT') 

9A C0NTINIIE 
100 C0NTINJ6 

C beginning 0 F Card RFAn aNP PR'^CFSS I.K.»F 

read (4il0C0.ERR«990,ENDa900) ICARp 

1000 F0RMAT (SOAl) 

'iRtTE <I3UT.1001) (lCARL<niI»li :.ii> 

1001 F0RMAT (IX.BOAl) 

NEwlbO 

C IS this CARi) TrPE n re PR^.CfcSSSD 

1STRT=1 

I0':fcal 

Da 104 I«l,7 

iRTNsINDDWTtLTVPE, ISTHT, t NXT V ( I ) . I C A^w , I ■’NE , 1 \ X T Y ( I ) ) 

IF ( tRTN ,GT, 0) G« Tk3 llO 

ISTRT»ISTRTT'IvXTY( I ) 

104 C 0 .\riNt-E 

IF (VE^L .f'P, 0 ) wRITt ( ItnT.iOOO ) 
bOOO F 0 RMAT UH > 

wKITt (ITUT.1104) 

ne*l=i 

1104 raPMAT (iH+.Aox, card tvpl') 

c Camp read is t 0 yp pHPcessE" 

00 T? 100 
110 CafTlMi'E 

1 TYPPSI 
C L a 0 

GO TT ?200,20l,,0P0,3'^0,3'>f;.4Oi],b'''C1, 

?00 CfciiTlNi'E 

C CfJTRi'L CARO (start aF GcP«FivT i.r-',r-.TPJ 

C ClE*R CMtCK aN'D bypass rUAii 

KC'-riPsc 
ITYPPS? 

GiA T 1 P02 
P.Ol Ca.MiNME 

1 T YPcs-i 
?02 CiA'vTINi'E 

C has CO^mTW'l CARO (START LF EECP'' f'. T -t- -i.LPT--) RvpicTt'' 

IF (I\'PEXP(l) .pO, rj) G,' T’’ ?ir 

C YC-S 

CALL C’TRL 
Gt’ T" lOO 
?eO Ca'^Tj.v :E 

C C-INTBPL CAP'' WAP a:/T FXi-'tCTPi; 

CALL NT.MTHL 
G4: Tt lOO 
300 C(l''‘Tl 'ii'E 

C HAS FIL-LC STaRT CAK-j fX^^tCTKi 

IF di\r'E>'F(2’ I eg. 0) Op 3E:" 

call fi DST 

r,^ T-’ 100 
350 C^ATlt.iiL 

CALL NFLOST 
G 0 T C» 1 0 0 
400 ca;-JTi\')E 

C *aS FIELD (C^'^PKniAATE) OARD EXPrCTL^- 

IF <iNrEXP(3) ieO. O' ca t- 450 

CALL FIELD 
G2 Tf 100 
45 c C0GTINHE 
CALL NFlEL') 
r.0 TiA 100 
500 C0NTINIIE 

C WAS END 0F segment CAPU EVPFCTE' 

IF <I.vnEXP(4) ,ED. 0) I'.'j Th 550 
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•<IL> 


y 


IF (INDEXP(3) iNE, 0) CALL FLDENO 

CALL SEQEND - ^ 

60 Ta 100 
550 C0NT1NUE 
CALL NSEQND 

60 Ta 100 . - . 

900 C0NTiM(iE 

C End 0 F FILE read - WRAPuP 

IF (INDEXP(4) lEO. 0) 60 TP 901 
IF (INDEXP(3> iEO, 21 CALL-XUJEND - 
CALL NSE6ND 

60 T0 902 - : . 

901 C0NTINUE 

IF (INDEXP(l) .(^E. 0) 62 T2 902 
CALL SE6END 

902 C0NTINUE 
ELAPS>SECnOs(T1) 

T2m£UPS - - . 

JSCR«T2/60. 

SCR>JSCR«60. 

ISECiT2-SCR40',5 

lHR*jSCR/60 

IMINajSCR-lHR*60 

WRITE (I0UT. 12221 IHR^JMI.Ni ISEC 

1222 F0RMAT (1H0.4XI 'T0TAL ELAPSED TIVE« • 1 1 2 , ' I M 2 , * 1 » • 1 2 1 
TYPE 1900 
WRITE (I0UT,19OO) 

1900 F0RMAT (IHO, ’Normal TERMINtTlP’^* 1 
CALL EXIT 

990 CD^'TINUE . 

WRITE (I0UT,199O> 

1990 format (81X,'ERR0R READING CARD*) 

60 T0 100 
END 


2-3 


2.1 MAIN PROGRAM (FLDUPD) 


MF0RTPAN IV-PLUS Vfl2-0* n8|46«33 ll«*MAyn77 PAGE 1 

rUDUPD.FTN /TPIBlPCKS/wR 

0001 PROGRAM MDODU 


0002 

0003 

0004 
OOOd 
0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 » 


0015 

0016 

0017 

0018 
0019 


0020 

0021 

0022 

0023 

0024 


ccc 

c 

C OW/ru FILE LIPOATE 

C REAPS AK'D PR0CESSES DEL FOSTER CARDS 

C 

ccc 

CiaMM9N /C0M1/ lArTVilACDli’ EWL.lNDEXP(4),lERFLGiKCKBP» 

1 idlte.ndexr, inaou 
BYTE menu 

C0MMJIN /C0*^2/ IDi I0FLD(6) I ICARd(80) I ITYPE 
BYTE IDFLD, ICARD, ITYPE 

parameter fvePR = 512.NBTBL»400,Nnlj(DL»1450 
parameter NW0R1256 

parameter MBnHiJE«3n 

C0MMPN /RUFRS/ IXDlRi IBDIR. IX1^X, ixDBUi 
1 LDTBL(NBTBL) .LniR{N8DR)iLD0Du(NBD0U) 

BYTE LDIR.LD0DU 

C0MM?N /C0M3/ ^jFLD,^C02RP 

C0mm;^N /piles/ IM, I0UT.LUl.LU2.LLi3,LU4,M0UMT 
C LTVTE - CARO TYPES TdJ bF PR'^iCESSED 

INCL''i^E 'SYl C300.3KAMSPARAM . INC* 

parameter HAXCAT«6n|MAXSUB»60» mAXCHN«4,NRIX»196»NL1N*117»MAXFL0«50 

l,MAXVsll,NP0TS = 2P9.DLSKlP*lOiDSSiKlP«lO,MAXACPa6#HAXACCs4, 

2N0SP'JD = 6i N.'^PTmOalO 
BYTE 1ST!JT 

BYTE LTYPE(20), ImXTY(7) 

BYTE IPNE 

BYTE LnATE(95iLTlMF{8) 

DATA LTyPE / 

1 1HS.1ME,1MG,1HP,1HE,1HLi 

2 IMS.lMEilHGi 

3 IMD.lBE.lWLilHO.lBU.lH*, 

4 1H/,1'Vi1bEi1MN,1MD/ 

DATA I^XTY /6,3,3,l»l,li5/ 

TlsSFCNDSCO.O) 

call time (LTIME) 

CALL DATE (LPATE) 

7000 P0RMAT {21V»*C AMS 1-1^0 DATA BASE ’» 

1 'Transact IP N' report*# //< 

2 SIX, 'date '9A1,/.B1X, ’TI^^E 'iSA1»//i 

3 35X, 'FIELD DEFI^1TI0^: DATA BaSE UPDATE *i 

4 'PROGRAM / may 77 * , // ) 


0025 

C 

IBD 1 RS 67 

initialise N 0 , PF FIELD': 

0026 

0027 

0028 

C 

NFLDaO 

1 N *4 

I 0 UT «7 
LU 2 - 

DIRECT 0 RY file 

0029 

0030 

c 

LU 2 »S 
DEFINE 
LUl ^ 

file LU 2 ( 200 ,NWDR 
D-’/DU FILE 

0031 

c 

LU 1«9 
L'J 3 - 

D'^T DATA FILE 

0032 

0033 


LU 3»3 

DEFINE 

FILE LU 3 (ND 0 TS ,26 
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rBRTRAN 

FLDUPD.I 


IVmRLUS V02«Q4 


Q6I46I33 11«HAY«77 


0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 


’N /TRI0L0CKS/WR 

LNlTliL12E ACTIVITY FLAQ r0R Bi/BiL FILE . 

lACTVtO 

iNlTlALIiE ACTIVITY FLAr, F0R OIRECT0RY AND INDEX PILES 
lACDlaO 

initialize t0 expect segment start 0R delete 

INDEXPd)*! 

. . D0 .50 I?0*4 

INOEXP( I )*0 
90 C0NT1NUE 

CALL ASSIGN ( 4 , ' CARD . DAT * ) 

CALL ASSIGN (7, *0UTFILE,DAt» ) 
write (7.7000) LOATE.LTInE 

.CALL ASSIGN <LU2. »DBOlC300i30011)lRFiLEtIlATi) 

94 C0NTINUE 
100 C0NTINUE 

) BEGINNING 0P card READ AND PR0CESS L00P 

read (4.l000iERRa990iENDa9O0) iCARD 

1000 F0RMAT (AOAl) 

WHITE {7.1001) nCARD(I).lal.80) 

1001 F0RMAT (1X.80A1) 

NEWLaO 

: IS this card type T0 be prbcessed 

ISTRTal 

I0NEal 

D0 104. Iil.7 

lRTNalNDRRT(LTYPEi ISTRT, tNXTyU ), ICARDi I0NEi INXTY( I ) ) 

IF (IRTN .GT. 0) G0 T0 liO 
ISTRTalSTRT^INXTVn ) 

104 C0NTINUE 

IF (NEWL .NE, 0) WRITE (7,S000) 

5000 F0RMAT (IH ) 

write (7,1104) 

NEWL»1 

1104 format (1H4.80X, 'UNKN0WN CARD TYPE') 

c Card read is not to be processed 

G0 TP 100 
110 CONTINUE 
ITYPEal 
NEWLaO 

G0 T0 (200,201,300,300,300,400,500)1 ITYPE 

200 C0NTiNUti 

C CPNTRPI card (START 0F SEGMENT 0R DELETE) 

C CLEAR CHECK AND BYPASS FLAG 

KCKBPaO 
ITYPE»2 
G0 TP 202 

201 C0NTJNUE 
1TYPF»1 

P02 C0NX1NUE .. , 

C *' WAS C0NTRPL CARD (START 0F SEGMENT 0R DELETE) EXpECTED 

IF (INDEXP(l) ,EQ, 0) G0 TP 280 
C YES 

CALL CNTRL v^', 

Q0 TP 100 
240. ClNTlNJJE 

C CONTROL CARO WAS N0T EXPECTED 
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IV-PLUS V02-04 


08146133 


llelxAyti?? 


reRTRAN 

rLDUPDiFTN /TRIRLTICKS/WR 

a079 _ . CALL NCnTRL 

0060 G0 100 

0061 300 C0NrI^JUE 

c UAS FIELD start CARD EXOgCTED 

0062 IF (lNnEXP{2J .EG, Ol G0 T9! 350 

0083 CALL FLQST 

0064 Q0 Tia 100 

0085 35n C0MTTMiE 

0066 call \FlDST 

0087 G0 Tjl 100 

0088 400 C0NTINUE 

c Mas field (C 0 PRDINATE) CARD EXPECTED 

0089 IF (INPEXP{3) .EG, 0) G0 T'» 45q 

0090 call field 

0091 G0 Ta 100 

0092 4Sn C0NT I MJE 

0093 call \flELD 

0094 S0 TP! lOO 

0095 500 C0NITINUE 

C WdS E'JD fir 5fcr,KiF.NT CARD EXPECTED 

0096 IF (I'mPRXP( 4) ,EOt 0) C.{! T? 55n 

0097 IF (NDEXP(3) ,NP, 0) CALL FlDFKD 

0099 CALL 

0099 G0 T7 100 

0100 55>Q C0NT1NUE 

0101 CALL NSFGNn 

0102 &2 TD too 

0103 900 C0VTINJE 

C E'JD 0F file read - URAPi;P 

0104 IF {lNnEXP(4) .ED, 0) G0 90i 

0105 IF {INDEXP(3) .EG, 2 ) CALL f L^END 

0106 CALL NiSEGND 

0107 GZ T' 903 

0106 901 

0109 IF (irjDEXP(i) .NE, 0) G0 T0 902 

0110 CALL SEGENH 


0111 

0112 

0113 

0114 

0115 

0116 
0117 
0116 

0119 

0120 
0121 
0122 
0123 


9C2 C^'JTINUE 

EL«PS»SECNPS(T1) 

WRITE (7.1899) cLAPS 

1899 F0PMAT (IHO, 'ELAPSED TIME *,1Pe12,6) 

TYPE 1900 
WRITE (7.1900) 

1900 F0PMAT (IHO, 'N?!RMAL TERM I Na T 1 0‘: ' ) 
CALL EXIT 

990 C0NTINUE 

wRITF (7.1990) 

1990 F0RMAT (fllX.'ERRPR READING CARn') 

G0 T2I 100 
END 


page 3 
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MAIN PROGRAM - FIELD 
DEFINITION DATA BASE 
UPDATE 


^ MDODU ^ 



0 


INITIALIZE ELAPSED TIME, 
T1 • SECNDS (0.0) 


GET DATE AND CURRENT 
TIME OF DAY 


SET POINTER TO DO/DU 
DATE IN DIRECTORY 
(IBOIR) 


READ CARO 


INITIALIZE NUMBER 
FIELDS • 0 (NFLD) 


ERROR 

READING 


ESTABLISH DIRECTORY AS 
DIRECT ACCESS FILE 
(LUZ • 8) 


ESTABLISH DOT DATA FILE 
AS DIRECT ACCESS 
(LU3 = 3) 


INITIALIZE ACTIVITY 
FLAGS FOR DO/DU AND 
DIRECTORY FILES 


INITIALIZE TO EXPECT 
SEGMENT START OR DELETE 


ASSIGN CARD INPUT FILE 
'CARD.DAT' TO LOGICAL 
UNIT 4 


ASSIGN PRINTED OUTPUT 
FILE 'OUTFILS.DAT' TO 
LOGICAL UNIT 10 



PRINT REPORT HEADER 


PRINT CARD AS READ 


ASSIGN DIRECTORY FILE 


SI 
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2.2 SUBROUTINE CNTRL , 

F0RTRAN JV.PlUS V02.04 06146193 11«RAY«77 RA8E 6 

ruDuRDtriN /TRiBLacK8/Ma_ 

0001 SUIRMTINE j^NTRiJ . 

CCC ® 

c 

C CRNTR0L CARD (SEGSTART ?iR DECETE) READ 

C 

CCC 

0002 C6MR0N /C0M1/ UCTVilAC0I».N£MW.XilB£><^(4LilfflrU5xKCKB»?i 

1 IDLTE.NDEXR. ID0OU 

0003 BYTE IO0DU 

0004 C0HMRN /C0H2/ I D . I DFLD ( 6 ) 1 1 CARD < 80 ) 1 1 TYPE 

0005 BYTE IDrLO.ICARD.ITYPE 

0006 C0HM0N /C0M3/ NFLD.NC00RD 

0007 „PA£AHETER NBDR«912.NBTBUf4OOjNBD0t«145O _ .. 

0008 parameter NBD0~UEi3O 

0009 C0MMRN /BUFRS/ :XDlR. IROIR. 1 X{mX, 1XD0U, 

1 LDTBL(NBTBL)iLDIR(NBDR)ilO0DU<MBD0U) 

0010 BYTE LDIRiLD«DU 

0011 C0HMRN /files/ in. I0UT.LU1.LU2.LU3.LU4.N0UNT 

0012 C0MR0M /CB'^NAM/ MAHFlL(2S).NAMrLD(9}|NAM0eTL9)ill.)IC(9) 

0013 DIHENSI0M I2NAM(l4) 

0014 EQUIVALEmCE (NAMFiLi 12NAM) 

0015 INCLUDE » SV | [300 , 33CAMSP ARAM . 1 NC • 

0016 • parameter MAXCATa60|MAXSUB«60tMAxCMNa4,NPIXBl96|NLIN*ll7iMAXFLDa90 

• liMAXV«lliNn0TS«2O9,DLSK]PalOiDSSKIPalO«MAXACDa6|HAXACCa4| 

• 2N0SPWDa6iN«DTWDalO 

0017 parameter NbD0TaiO866«NBPD0Ta52 

0018 C0MMPN /C0MD3T/ lXD0T,LDt*T(NBD0T> 

0019 BYTE LneT 

0020 byte IDA(4) 

0021 BYTE 1BLNK.IC0MMA 

0022 BYTE IZER0 

0023 byte NAMFIL#NAMFLD,NAMD0T,1LIC 

0024 BYTE IDL,in9 

0025 BYTE LBiLK.LliLZ 

0026 DATA LR/lHB/, LK/IHK/ iLl/lHl/, L2/1H2/ 

0027 data 1ZER0 /O/ 

0J056 data IPlNK /IH /, ICPMMA /th|/ 

C NAMFLD - complete D0/DU NAME 

0029 data NAMFLD /IMF.lwMHEilMUilHCi 

1 1H’.,1H0,1HA,1HT/ 

C NAMD0T •- complete DOT DATA FlLc NAME 

0030 data NAmDOT /iHOi I hD. IMOi 1mT« ImS, 1m, i 

. 1._-AHD,1HA,1HT/ 

C lUlC • UlC, USER IDENTIFICATION CODE 

0031 data IUIC /1M[,1M3.1H0,1M0.1M| .1m3,1m0,1H0i1N3/ 

0032 data NAmPIL /1M0.1m8.1M2,1mI,1m ,1H ,1M ,1M , 

1 IH ,1H ilH ,1H ,lH ,1H ilH »lM ,iH , 

2 IH ,1H ,1H ,1H ,1H ,1H ,1H ,lH , 

. . 1 ilH ilH / 

0033 DATA IDO /*0'/, ID9 /»9'/ 

c initialize check and bypass 

0034 KCKBPaO 

0035 lERPLOaO 

C SET DELETE FLAG 

0036 IOLTEpO 

0037 IF IITYPE ,EQ. 2) IDLTEal 
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FaRTBAN 

FtnuPD, 

003e 

0039 

004J 

0041 

0042 

0043 

0044 
094^> 
0046 
1047 


no4fl 

0049 

005f' 

03‘'1 

0US2 

lO'^i 

no*)4 

flO*)^ 

0056 

0057 
0056 
1359 
OOfrD 
0061 
1062 
106 3 
0064 

1C63 


1066 
006 7 
1066 
0069 

1070 

1071 

1072 
10 73 

CC74 

1075 

0076 

0077 

1076 
1079 
1060 
ooei 
0062 
0083 
1064 

0065 

1086 


lV»iP| US V0?-14 16146153 11«^AY-77 PAG£ 7 

FT\ /TRI' L’Cv'S/K-' 

lb«6 

51^ C«‘',TT\ jH 

Ga T3 (2Ui214), ITYPl 
211 CO‘iT!'j''t 
I6«3 

c spr s•'17c^^ r^ txPPCT rirtn «;!AhT (FlDstartj 

r? 2i2 1*1.4 

iNiEypf n»i 

?1? 

lNitVP(25*l 

ce'TiM'f, 

C GPT p 

C 

IP d:'' ,1T. 72) r.^: T'> 101 
ir (KAI^KTH) ,P1, l«L‘iK) 11 T’ ?14 
If (lCAWu(ld) .irV, 1C,1!-MA) fp Ti; 2l4 

30 2l5 t*l,4 
IlA(T)*!OA^ij(l*J) 

IF nO‘-(d ,LT. lu-' TAd) ,bT, ID9) 

1 V T • 7 01 

21^ 

'A-riLdd-I-iAd) 

* A‘"r!L(l‘')*lOAd) 

' A‘.'f 

A'^f !La7) = r'A(4) 
rbc;'-M ( 4, 1 d 5, p-i .fcP5«9io ' li. 

121K f ( 14 ) 

(yibori) 

' k -L'^1 

r SP'i 'P'’T ir ■ Alp'lTV 

ir (! CAN" (.)♦*■ ) .ft, lifLM' ,7-', 

1 1C.'..,'' ( J>5) ,^Q, tCi‘^“A) '■/ T * 221 

C I-walIU 

If ( r'L .’fc. 1) '-Bdc (7,5001) 

5 r r, * F2 A T ( 1 ) 

(7,1214) 

1214 f/»yir < Ih*, **0X , ' SP&Hcf'T I' .■''OT ’f fiA'A.t*) 
f fc L S 1 

21X r/‘ T 'fc 

If (TTvyi-- 3 ) ''>'■* T/ 26'’' 

i; X M p s 1 
(i 2 T > 111 
22'- t!«: T]‘ c 
222 Ck'-' i 1 %' P 
If LC = C 

1411 - -Kf'HX ( ID, 1 Xu IW. loo'll , I'kfi) 

IF (Ifl.G .PO, 1) r.1 T2 2<0 

IF ( !FLO ,PO. 2) G" T.) 2^4 

IF Cfc'L .‘-t, 1) wRlTfe (7,501 j) 

vRlT'- (7,1223 ) 

1223 f0P‘'AT (1H*,«C'X, 'bfcGMENT \'*T 2' CC-<f<P'vT PI£< PACK') 

':L *'l. = 1 
30 r* 216 

224 G/''Tr-."P 
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FJRT8AM IVbPlUS 
TTN 


VQ2«04 

/TR|Bl«ICKS/WR 


08146193 


13aMiY«77 


RACE 8 


or oj 


LE.JiiWt.^E,_ OJ HU.T1 JIaIMU - — 

0086 


WRITE (7il224) 

0089 

1224 

F0RIUT 11H*.80X. 'SEGMENT MBl l.N D1BECT0BV 

0090 


NEWL>1 

0091 


G0 T0 216 

0092 

230 

C0NTINUE 


TABLE') 




tr tiDQ SK ,LT._U30a)..M- lEX^L- 


0094 

0095 

0096 


NAHnL(25«LK 


NAMP1L(3)>L1 
Q8 TR 234 


v:. 


0097 

0098 

CM 

CM 

C0NTINUE 

NAMFIL(2I«LB 

om 

c 

.. NAiHlL(3>»L2 

IXDIR - RECPRB N0, ( 

0100 

234 

C0NTINUE 


PJ Data ]N DIRHCT0RV file 


0101 
0102 
01 QJ 

0104 

0105 


250 


250 


0106 

0107 

oloa 

0109 


read OISECT?!Ry 
call RDDIR (IDiIERR) 

IF (IERR .so. 0 ) G 0 T 0 

XCKBPfl 

G 0 TP 100 

Continue 

existence FLAQS FR 0 M DioECTpRV 
IXD 0 T«O 
IXIST «0 


_JF. 

IF 


0110 

0111 

0112 

0113 

0114 

0115 

0116 


IF 

IF 


L4J 


245 


0117 

0111 

0119 

C120 

0121 


0122 

0123 

0124 

0125 

0126 


0127 

me 


0129 

0130 

0131 

0132 
C133_. 
0134 


..ILDIRUBDIR) .NE, 1HEB0) lXl5Ttl 
<LDIR(PDIR*4) ,NE. IEER0) IXOBT"! 

D2ES D0T data file EXIST F0P SEGMENT 
<IX^0T ,NE. 0) G0 T0 245 
(NEWL .‘-'E. 0) kRlTg (7,5000} 

WHITE (7. 1245) 10 

t?4A F0RMAT llH»ilOX,'N3 D0T DATA FILE FEB. SEGMENT 
NEWLai 
G0 T3 245 
C0MTINUE 

ST0RE DPT file NAME 

j»ie 

x»5 _ 

D0 2450 lal,9 
NAMriL( J)«NAMDPT( I ) 

J«J*1 

5T0RE UIC 
NAMDl (K)«1U1C( I ) 

KtK4 j_ 

C0NT!NUE 

NAHF1L(27>»UER0 
CALL ASSIGN (LU3.12NAM) 

READ O0T data file 
call RODPT (ID.IERR) 

50nT.1M'E - • 

C DPES 00/DU file exist FpR SEGMENT 

IF (ixIST ,NE, 0) G0 T0 252 
IF (ITYPE .NE. 2) G0 T0 252 
IF (nEWL iNE, 0) write (7,5000) 

WRITE (7,1252) ,0 

±999 F0RH AT (lH».60 X.«Ng D0/JU JLlLE IW. SEiMlHl.ia.14J 

NEWLai 




1 


2450 
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TBRTRAM IV. 
rUDUPD.FTN 

0135 

0136 

0137 
0136 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 


PLUS V09-U4 

/Tr|Rl7’CkS/WR 
GZ 10 ?6P 
25? CONTINUE 
J>16 
Kt5 

DO 2520 1«1,9 
NAMr!L(j)«NAHrLD<n 
NAMF1 L(K)s1UIC(I ) 

J»J*1 

K»K>1 

2520 C0NTt\UE 

NAMFlL{27)sli«ER0 

IF (li(lST ,NE, 0) G0 ^522 
: ASSIGN n0/Du ILF segment 

?|PPN (UMT»LUl,NAMF«12NA'*,TVpb«i*.EW» , 
1 FaRM*'UNF0RMATTEn* .tRP»2521) 


0146 GZ t;' 25?2 

0149 2521 C0’‘!T!NUF 

0150 WRITE (7,2300) ( MAMF I L ( I ) , ! »1 » ?7 ) 

0151 2300 Format (Six, 'ERR^R-FILF 0PFN • , /. six, 27a1) 

0152 KCKRPsl 

0153 G2 T7 ion 


0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 
017 7 

0178 

0179 
0100 
Olfll 
018? 
0183 


2522 Ck!VT|\ilE 

IF (IXIST ,EQ, 0) G3 T3 100 

''PEN ('JMT»LUl,NAMF = I2N4M,TYPt=*3LD* , 

1 F 29 Ms"JNFi 3 RMATTEri* ,ERR« 2521 ) 

IF { ITYPE ,EQ, 2) G3 T0 -354 

c read ne/Du tile 

CALL ROn^DU < n, IERH) 

IF (IE”R .Nfc, 0) KCK8P"! 

G0 TO 100 
254 C0NTTNi;E 

C delete fill 

CLOSE <UNlTsLUl,0lSP[?SE=*DELE-T6* ,ERRs2540) 

I ArT‘'sP 
G 0 T^' 2541 

2540 C0"T!NUE 

WRITE (7,1260) (NAMEIL( !>, 1=1,27) 

1260 F0RHAT (81X, 'ERR^R-FILF DELETE * i /, 81X, 27A1 ) 

2541 C0MT1NUE 

‘i=*riPlR-l 
D0 256 1*1,4 

LOiRtNTi ) = 1HEMP' 

?56 C0‘'T1Ni;E 
1 ACDlsl 

C CHECK F'R D'vnu 16 ' D 0 T OATA FILE AND SET T 0 Q 

PALL UPD.''T(1) 

CALL SEGEND 
26 0 C0NTIN’'E 

I8sin*4 

IF ( Ip ,LE, 72) Ckj T0 .214 

100 Continue 
return 

900 CONTINUE 

IF (NE iL .E'b. 0) WRITE (7,5000 ) 

NEwLsI 

C SET CHECK AND bVPASS FLaG 
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F0RTRAN IV-PLUS V02«Q4 06l46l53 ll«HAY«77 RAQE lO 

FLDUPD.FTN /TRIBL0CKS/WR 

_ ...KCKflPJl _ .. .. - - 

0165 IF (IDLTE .EQ. 0) Q0 T0 lOO 

0166 00 T0 260 

0167 902 continue 

C ERR0R trying T0 OPEN DOT DATA FILE 

• ' 0168 WRITE (7,1902) 

0169 . 1952 F^PPAI_{91)(i 'ERROR-DOT data rU.E_ 0i»JENii_ _ , 

0190 KCKBPal 

0191 GO TO 248 

0192 END 


tHK4€'NAL IS 

Ci' t^L'AUTY 


4 W' 


■ 4 a 
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rBRTRAN IV-PLUS V 0?«04 fl 8 l 47 l 23 11 «><aY »77 

riDUPD.FTN /TR|RL!^CKS/WW 

0001 rUN'CTlf^N InDRRT(A, I|N,P# Jr^) 

c find b in a 

0002 RYTE I.N.J.M 

0003 BYTE A.B 

0004 INnBRT «0 

0005 KsN^f.M 

0006 lF(K’.LT.I)RfcTURN 

0007 DB 1 LsIiK 

0008 IF (K 1 M«RT(A,L.I'.P. J) .nE ,O)r ,0 T« 1 

0009 INDBRTsL 

0010 RETURN 

0011 I C0NTINUE 

0012 RETURN 

0013 


page 13 
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2 . 3 SUBROUTINE EXPTD 


reRTRAN IVwPlUS V02-04 08147129 11«PAV»77 PAGE 17 


FLDUPD 

,FTN 

/TRl9L'7CKS/kR 

0001 

ccc 

C 

SU0RfllUTlME EXPTD(I) 


c 

c 

WRITES MESSAGE ACCaROlNr. T0 TYPE 9F CARD EXPECTED 

00C2 

ccc 

CaMM!»N /ce'U/ urTVi IACD1»N‘EWL, INDEXP(4Jj IERFLCiKCKBP 


1 

. IDLTE.NHEXR, lOanu 

0003 


HYTE ID0HU 

0004 


C0MMOi\ /C0M3/ NFLD.NcaPRD 

0005 


C0MM'5(N /files/ Im, i0uT,LU1,LU2,LU3.LIJ4,M0UNT 

0006 


IF <MEVL .^'£. 0) WSITE (7,5000) 

0007 

5000 

F0RMAT (IH ) 

0008 


G0 T5 (10,20,30,40), I 

0009 

10 

CaNTiNi'E 

0010 


WRITE (7,ini0) 

0011 

1010 

F0RMAT (1H+,8DX, ’SEGMENT START 0R OELETE EXPECTED,’) 

0012 


G0 To 500 

0013 

20 

C0‘(TINUE 

0D14 


WRITE (7,1020) 

0015 

1020 

Format ( lh^,fi0 X, 'field start expected') 

0016 


GK T'< 500 

0017 

30 

C0NT [NIUE 

0016 


WRITS (7,1030) 

0019 

1030 

F0RMAT (IH*, 60V, 'VERTEX CARD EXPECTED,') 

00?0 


Gl3 I'ft 50 0 

0021 

40 

CiJMTTM'E 

0022 


WRITE (7,1040) 

0023 

104? 

F0RMAT (1H*,8CX, 'E\0 3F SEGMENT EXPECTED,') 

0024 

50? 

C0\'TINUE 

0025 


NEvLsI 

0026 


RETURN 

0027 


fnd 


^ - I 


2-22 


2.3 SUBROUTINE EXPTD 



VERTEX 


VERTEX CARD 
EXPECTED 


2.4 SUBROUTINE FLDST 


raRTRAN IV-PUUS nai47l3i II.MAY-77 page 19 

FLOUPDiFTN /TRifL^CKS/w-? 

QOOl SUDRauTlNiE FLDST 

CCC 
C 

c Field start (Fldstart) card t<iAS read 

c 

CCC 

c MAXFlD - MAXIMU‘1 T0TAL ?0/DU FIELDS PER SEGMENT 

C0*im?in /C0M1/ IACTVi IACD1i\£WL,1NDEXP(4), IERFLGiKCKBR* 

1 iDLTE.NDExR.inaDU 
BYTE ID 0 DU 

C 0 MM.JIN /C 0 M 2 / IDi inFUD( 6 Ji ICARr>( 80 )i ITYPE 
BYTE inrUD, ICARD, ITYPE 

INCLUDE *SYIt 300 . 33 CAMSPARAM,lNC' 

parameter HAXCAT«6niMAXStJB«6O,»^AxCMN*4,NPlX«196|NLlN«ll7iMAXFLO«50 
liMAXVtll,NP0TS*2P9,DLSKIPilO,DSbKIP«lO,MAXACD*6iMAXACC«4i 


0002 

0003 

0004 

0005 

0006 
0007 • 


0006 

0009 

0010 
OOU 

0012 

0013 

0014 

0015 

0016 
0C17 
0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 
0027 
0026 

0029 

0030 

0031 

0032 

0033 


2MMSPvn*6iNPDTUDstu 
C0MM0N /C0M3/ NFLD,NC0«RD 
parameter ^'H^R*5l2,^PTBL•4OO,^nD0L«145O 
PARAMETER VBD0UE«3O 

C0MM1IN /RurWS/ IXDlR, IRDIR, IXivX, ixDPU, 

1 LDTRL<NRT»L)iLDIH(NBDR) iLP0OU(N9D0U> 

BYTE LniBiLOPDlJ 

C0MMPN /files/ IN!, I0UT,LU1,LU2,LU3.LU4.M0UMT 
C0mm7'j /C0MNAM/ NAmF 1L(26) ,NAMrLO(9),NAMD0T(9), IU1C<9) 
DiMEf.Sie'' 12NAM(14) 

FQilI VALE^'CE (NAMFlLi 12NA‘'> 

BYTE NAMrlL,NAMf'LD.NAMD0T, ILlC 
BYTE mil P2, m3, 104 
byte 1DA(4) 

BYTE 1?FB0 

BYTE IL'LNK, ICximmA 

DATA 1=^U^'K/1H /, ir0HMA/lH./ 

DATA /O/ 

DATA iDi /*A*/, ID?/'H'/,m3/'0'/,lD4/»9»/ 

10 C|i!)''‘TINUE 

nz 9 !*1,6 
iDFLr( n«mLN'K 
9 C0MT1NL'E 

IF (ITYPF lEQ, 3) G0 T“" 11 
IDLTFsD 
J»0 

R? T? 14 

11 CZNTIN'IE 

ScT DELFTE FIELD FLAG 


0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 


IDLTFsl 

Id*3 

12 C0N'T1M!E 
IB«1R*1 

IF (10 ,GT, 721 r,0 TP 500 
IF (ICARD(IB) ,ED, IBL’^M) r,0 T? l2 
IF (ICAROdb) .to, IC0MMA) G0 T2 1? 
J*IB-l 

14 C0NTINUE 

I«1 

15 C0NTi;gUE 

IF (iCARDlJ^n ,FO’. ISLNk^) G? T0 30 
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F0RTRAN iVi 

floupd.ftn 

QMA 

0047 

0048 

0049 


0050 

QQ51 


0052 

0053 

0054 

QJ55 

0056 

0057 
005B 

0059 

0060 


C 

C 


iPUUS y0a>04 06447ISS llapAY«77 

/triBlocks/wr 

IDFLBtnil CAMUtJJ- 

IF (1 4 LE, 6) 00 T0 15 
IF (ICARD(J*n .NE'. IBLNK .AmC, 

1 l£ARD(J«n «NE. 1C0HMA) 30 Te 35 
3n C0NTINUE 


rase 20 


OR' 


IS FlELn ID legal 
JS THERE H0RE than 1 CHARACTER 
IF (IDFLD(2) ,EQ. IBLNK) G0 T0 35 
00 34 IiSi6 

IF (IDFLO(I) .eg’. IBLNK) GF T0 40 
_.lF_UDELDm.. iSe. JDl .AND. IDF^DIli 
IF noFLD(I) .GE. IDS .AND. IDFLO(I) 
60 T0 35 
34 C0NTINUE 
60 T0 40 
39 C0NTINUE 




• LE. 
.LE. 


P.\( 


102 ) 

104) 


Qfl 

G0 


■ K rs 

!TY 


T0 34 
T0 3^ 


0062 

0063 

0064 

0065 

0066 
0082 

0066 

0069 

0020 

0071 

0022 

0023 

0Q74 


if. lAlE.Wk 4 NE. 0) KRITE (7j5000) 

5000 F0RMAT (IH ) 

WRITE (7.1035) 

1039 F0RMAT (1H«,60X.'ILLEGAL FIELD ID') 
NEWLil 
IERFlG*! 

4IL.£^]^1NJE. 

c IS delete flag set 

IF (IDLTF ,NE, 0) 60 TF 90 
IF (NFLD ,EO, 0) GF T0 45 
NTflT«(NFLD*l)«NBO0UE 
D0 43 Jil.NTFT.NRDFUE 

.... AtJ 

D0 41 1«1.6 

IF CIDFLOU) ,NE, LDFDU(k)) 60 TF 43 


0075 

0076 

0027.. 

0076 

0079 

0060 

0081 

0062 

O[063 


KiK^l 

41 continue 
C DUPLICATE ID'S 

KCKBPfl 

lERFLD"! 

WRITE (7,1410) 

1410 format («1X, 'DUPLICATE FIElD InS') 
60 TF 900 
43 CONTINUE 
_45 CONTINUE 

C SET TF EXPECT CF0RDINATF CARD 


0064 

0085 

0066 

0067 

0066 

0069 

0090 

1)091 

m2 

0093 


00 42 Iili4 
1NDEXP( I )«0 
42 C0NTINUE 
INDEXP(3)«1 

C INITIALUE N0.'._0F VERTI.Cf .Cards. . 

NCF0RO*O 

c UP T0TAL N 0 , FF FIELDS 

IF (NFLD*1 ,LE, MAXFLD) 60 TF 46 
IF INEWL .NE. 0) WRITE (7,9000) 

WRITE (7.1046) MAXFLO 

.._lOL4A_r-0RttAT tlH*x5DX*'N0, FIELDS EXCEEQiJlAKlMUHJir.LiLllJ 

IERFLG*! 


nei47i33 


ll.f'AY*?? 
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PGRTPAM IV*PlUS V0P«"4 

FLOUPOtFTN /T4IOI.PCKS/KR 

0094 NLnLal 

0095 4f CSSVTjmie 

0096 KCKBP«1 

0097 G0 T?l 50n 

0098 4fl C0 NT»nJF 

0099 IF (r6'’FLG ,Nb, 

0100 IF {KC«BP ,NF 

C ST0RE FIELD 

0101 NtNFl.D*S:RD'^UF 

0102 DO 90 III. 6 

0103 LD0Dl'(I^N>«inFUD(I> 

0104 90 cawTlMlE 

C SFT D''(-l)i 

0105 1T«-1 

0106 IF (ITVPE ,EQ, 

0107 LD!'D'I(N^7)iIT 

0108 G0 T7 500 

0109 90 C0MTJNUE 

C DFLtTF FIFLO 


0) G0 T0 44, 
c 0) G0 TP 509 
in IN DP/nu buffer 


0u(< 


TYPE Indicator 


5) IT'S-? 


riNO IP IN C'"/nL BUFFER 


0110 

00 

94 Itl.^'dOeiJ.ubrPliE 




0111 

IF 

(LD:'0U(!) ,VE. IDFLP(I)) Ge 

i T? 

1 94 

0112 

IF 

(LD'-nud*! ) ,Mk. 

IOFLP(?n 


t? 

94 

0113 

IF 

(LO’OUCd?) ,NE. 

IDFLOm ) 

r,4 

t? 

94 

0114 

IF 

(LD^'DUC1*3) ,NE. 

lOFLOCO ) 

r,^ 

T:i 

94 

0115 

IF 

<LD'-nn(l44> ,Mfc. 

1DFLP(‘^) > 

02 

T?i 

94 

0116 

IF 

(L0:’nun^5) ,NE’. 

lOFLOt*) } 

G2 

TP 

94 


C 

F-'u''‘n IT 





0117 

G0 

Tk ion 





0118 

94 C0’''TIN JE 






FlEl n N'''! f :>UVID 




0119 


IF (ue-^l ,\c, 0) .vflITE (7,5000 ) 


0120 


WRIT- (7,1'^94) 


0121 

1094 

F0R“aT (lH*,flOY, 'FIELD TP DELETED NPT 

rnuND* ) 

0122 


N E W (. 1 1 


0123 


G2 T)| 490 


0124 

100 

C0\T1 V'F 


0125 


IXDeUi! 



C 

OPDATP O0T haTA file IF IT FXIJTS 


0126 


call LPDTT(2) 



C 

C^hPaPT DP/nu bUFFER WHr\ NpCFSSARY 



C 

IS 'ELETbP HELP LAST 0“E d' BUFFER 


0127 


IF ( (Nf L^-1 >"NnD?luF*l ,EQ, IXDPU) 'JZ TP 

104 

0128 




0129 


Nf vrLDi'.^DPUF 


0130 


J*IXn7lU 


0131 


D0 102 l»b,N 

1 

0132 


ld^dik j)aLr..!nu( i ) 


0133 


J«J*1 


0134 

102 

C2*0Ttn:'E 


0135 

104 

rKvTlNUE 


0136 


NFLDiUElP-1 


0137 


lACTvil 


0138 


IF (‘jFLP .GT, D) GP T0 490 


0139 


lACUIsl 



F'»R‘' DC/UU file ^AMF 


0140 


ENCanE (4.1300. lOA) 10 


o 
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r0RTRAN IVaPLUS V02«04 08l47|33 llaPAY's?? 

rtnuPDiFTN /TR|RL»CKS/WR 

0141 1100 F0RHAJ (4A1) 

C ST8RE ALPMAMUMERIC SEGMENT ID 

0142 NAMnL(i4)«IDA<l) 

0143 NAMriL(l5)iIDA(2) 

0144 NAHrtL(l6)aI0A(3) 

0145 NAMFiLJl?)«lDA(4) 

0146 J«16 

0147 K«5 

0146 D0 2920 I«l|9 

0149 NAHF1L(J)«NAHFL0(I) 

0150 NAMriL(K)*IUlC(I) 

0151 J«J«i 

0152 K«K*1 

0153 2520 C0MTINUE 

0154 lACTViO 

0155 CL0SE <UNlT«LUl,DlSP0SE«*DfeLETE*iERR»lO9) 

0156 T? 110 

0157 109 C0NT1NUE 

0158 write (7,1109) { NAMF I L ( 1 ) , I ■! * 26 ) 

0159 1109 F0RMAT ( 8lX, • ERRPR.F HE OElETE • i /, 81X, 26A1 } 

0160 110 C0NTINUE 

C 2ERP DATE IN niRECT0RV PILE SUFFER 

0161 fJ«lBOlR-l 

0162 00 256 I«l,4 

0163 LDIR! I*N)«IZER<* 

0164 256 C0^T!NUE 

0165 490 CONTINUE 

0166 IBtlg^S 

0167 IF MR ,LT, 72) G0 TP 12 

0168 900 CONTINUE 

0169 RETURN 

0170 end 


paQE a 


4 >' 
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2.5 SUBROUTINE FIELD 


F0RTRAN IV-PIUS V02-04 00147154 11*|^AY«77 PAGE 25 


fldupd. 

FTn 

/TRIPLPCKS/WP 

OCOl 


ccc 

c 

SUbRUuTlME 'FIELD 



c 

r 

Field card was read 



V 

ccc 


0002 



C0MM3N /C0M1/ IACTV«1ACDI,'^EWL.1NDEXP(4),1ERFLG»KCKBP» 
1 mLTE.^DExR, nanu 

0C03 



BYTE ID0nU 

0004 



CtiMMfflN /C0H2/ IDiI»'FLD(6),ICARr(80)*lTYPE 

000b 



BYTE IDFLD, ICARD, ITVPE 

0006 



/C0V3/ NFLD.^C.IPRD 

0007 



C0mm:-m /files/ IM, !2iiT.L'11,LL'2.UJ3.LU4,m0UNT 

0008 



INCL’JDF *bYJC300.3]CAMSPARAM. IMC* 

t009 

# 


PADAMETEP ►'AXCAT*6n,MAXSUBa60,MAxc-^Na4,NPlX«196|NLIN»117iMAXFLD«50 


ft 


liMAXVsli,\n/TSs2n9,Dl SKlP5l0iDSbKlP«10,MAXACns6|MAXACC»4. 


ft 


2^J0SP'JO = 6i N^'DTwnsio 

0010 



C0MMPi\i /FLDCPM/ 1VRTC(2*^AXV) 

0011 



PYTE YIMUS 

0012 



DATA mIMJS / 1 h-/ 

0013 



'JVT/5Ts*>AXV 

0014 



IF (i<Ct<RP .EO, 0) '•S T5" 90 

0015 



^RITP {7,in9P) 

0016 


109n 

F0PM4T <81X,»nELD CARD UJLL bF CHECKED AnD RYPASSFD') 

0017 


9n 

C0NTIM;E 

0018 



NC?0Rn»‘jC2'*Hn*i 



C 

DFCFDF and check pixel 

0019 



ICVTr2 

0020 



CALL OC00RC ( ICARD(2),N!C00PD.1, lEHR) 

0021 



IF (lEPR .'■'E, n) G’' 190 

0022 


130 

CL'mTINUE 

00?3 



ICMs9 



C 

CHECK F/R LINE CARD 

0024 



IF (TCAROIA) ,M£. HjfcuS) G-* r^ 900 

00?b 



IC'!T = 9 

0026 



call DC0?H'' (lCARD<9>,NC«'!0f’Di2, IERR) 

0027 



IF (TEPR ."t, 0) G? TZ 190 

0028 


14P 

C^-^TIn'I'F 

0029 



IF (NC'’0PD ,LT. NVT<5T) G' T? 500 



C 

SCT T? LKPECT FIELD STa^T Ca^D ?R END 0F SEGMENT 

0030 



n/ 148 1*1,4 

0031 



I NOEXP ( I ) *0 

0032 


14«) 

C,5NTINUE 

0033 



!Nn£yp(2)si 

0 034 



INfiEXP(3)s2 

003b 



I NPEXP ( 4 ) *t 

0036 



G0 T? bon 

0037 


I9n 

C0r.:TiNjiiE 

0038 



KCkbpsI 

OC J9 


20'' 

r/'iTi\i')E 

0040 



IF (IC'T ,lT, 9) G> V/j 130 

0041 



G0 ry 14 n 

0042 


bOO 

Ct3’-:T 1 

0043 



PETU!5\ 

0044 


900 

CKM!N:!E 

004b 



IF nxY .EC, 1) lEPRsO 
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^ FORTRAN IV-PlUS m«04 06I47IS4 ll«pAY«77 PAfiE 26 

rLDUPDiFTN /TRiBLflCKS/NR 

QiU6 ilRltt- llAllOfl) - 

0047 1900 format (SiXi'LlNt COORDINATE MTSSING*) 

QQ49 00 TO 190 

0049 END 



















2.6 SUBROUTINE DCOORd ! 

rSRTRAN IV*PLUS VQ2.04 08148103 ll»RAY*77 PA8E 2t 

PLOUPO.PTN /TRIBU0CKS/WR 

0001 SUBROUTINE OCBflRU.ClBUPi 1NX« IxTilERR) 

CCC 

C 

C DBCROB C08RO1NATE DATA 0N CaRO 

C 

CCC 

0002 C0.MM0N /files/ 1Ni I0UT«LU1.LU2.LU34LU4.M0UNT 

C MAXP - MAXIMUM PIXEL VALUE 

C HAXL • MAXIMUM line VALUE 

0003 INCLUDE 'SY I C300.33CAMSPARAM’. INC 

0004 • parameter MAXCATB60iMAXSUB«60|MAXCHNa4,NPIX«l96iNLIN"il7|MAXPLDa90 

• liMAXVBiliNn0TSa2O9.OLSKlPBlOiDSSKIPBiO»HAXACOM6iMAXACCa4i 

• 2N0SPUDB6iNROTNDilO 

0005 C0MM0N /PLDC0M/ I VRTC(2iMAXV) 

C iRUr • CONTAINS DATA T0 BE oICBOED 

C INX •• INDEX 0F vERTtCE ARRAY (N0, OF COORDINATES) 

C IXY 1 1 PIXEL 

C IXY • 2 LINE 

C lERR ■ 0 N0 ERROR 

C lERR a 1 ERROR 

0006 BYTE IBUF(l) 

0007 BYTE IDOiIOB 

0008 DATA IDO/'C*/, in9/»9'/ 

0009 MAXPaMPIX 

0010 maxlbnlin 

0011 NVTBTbMAXV 

0012 IERRbO 

C CMECK INDEX 

0013 IF (INX .GT, NVT0T) G0 TP 901 

0014 D0 100 ial,6 

0015 IF (tBUF(I) «LT. IDO ,0R. IBUF(I) .GTi ID9) 

1 G0 TP 903 

0016 iOO CONTINUE 

0017 DECODE ( 6» 1100 . IBUF (1 ) . ERRb903) ICOOR 

0018 1100 format (16) 

C CHECK RANGE OF COORDINATE 

0019 MAXINAXP 

0020 IF (iXY ,EO, 2) MAXbmAXL 

0021 IF (ICPOR .LT, 1 ,PR, ICOOR iGTt PAX) G0 TO 902 

0022 IVRTC(IXY,INX)bICOOR 

0023 500 CONTINUE 

0024 return 

0025 901 CONTINUE 

0026 WRITE (7il901) 

0027 1901 FORHATdX.SOXi «NP, VERTICES EXCEEDS HAXIMUMI) 

0028 IERRbI 

0029 GO TO 500 

0030 902 CONTINUE 

OQSl WRITE (7il902) ICOOR 

0032 1902 format (1X.80X. tCOORDINATE OUT OF RANGEM9) 

0033 IERRbI 

0034 GO TP 500 

0035 903 CONTINUE 

0036 write (7.1903) 

0037 JLiOl FORMAT llXtSOX. *BAO VERTEX DEfiUTlMll . 

0038 lERRal 
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rBRTRAN IV* 
pldupd.ptn 

0039 

004Q 


LUS V02-04 

/TRlRiaCKS/WR 
G0 TH 900 

END 


06I48I03 


U*RAY«77 


rage 30 
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2 . 7 SUBROUTINE FLDEND 


FORTRAN lV«PtUS-ma04- 06148111 llaRAY«77 PAQE 32 

PIDUPD.PTN /TRiBLRCKS/MR 

(lAil SUBRPUTtNE FLDE NB _ . . 

CCC 

C _ 

C FIELD end (FLDEND) CARD READ 

C 

CCC 

0002 C SMMflN /C6M1 / UCTVi |ACJ)ljNeWUlNDEXP14), l£§FLftjRCKfP| 

1 IDLTE*NDEXR«1D0DU 

0003 BYTE ID0OU 

0004 :<SMM0N /C0M2/ IDi IDFlDI 6) . ICARO ( 80 ) i ITVPE 

0005 8YTE lOELO.ICAROiITVPE 

0006 Cr*^H0N /files/ 1N,I0UT.LU1.LU2.LU3.LU4.H0UNT 

0007 _ VOifiUiDE .'SYltSflO.SlCAMPARAH'.iMC 

0008 • PARi^HETER HAXCAT*60f HAXSUBaAOf MAXCHNa4.NPlXai9 / iNLIN«117iHAXFLOp50 

• ljf;AXyflliND0rS«2O9.DLSKlPalOiDSSKlpalO.RAXACDa6iMAXACCa4i 

• 2Ni)SPUDa6iN0DTWDalO 

0C09 C0KH0N /C0N3/ NFLO.NC00RD 

0010 parameter N8DRi9l2.NPTBLa400iNPDflLal490 


0011 

0012 

0013 

0014 

0015 

0017 

0018 

0019 

0020 
0021 

0^2 

0023 

0024 

0025 

0026 
0027 

W25 

0029 

0030 

0031 

0032 

0033 

0J134 

0035 

0036 

0037 
0Q38 
0039 
CJ40 

0041 

0042 

0043 

c 

0044 

C 

0045 


EARAlj£I£R._NHDRp256 
parameter NBD0UEa3O 

C0MH0N /BUFRS/ IXDlRilBDIRiIX^^X,lxD0Ui 
1 LDTBL(NBTBL)iLni9(NBOR)iLD0Dl)(NBD0U) 
BYTE LOlRiLOPDU 

dimension IDIR(NkiDR) 

. . equivalence (IDIRiLDIR) 

C0MMPN /FLDC0M/ I VRTC(2,maxv> 
parameter NBD0TaiO868|NBPD0T«52 
C0MKPN /C0MDPT/ 1XD0T,LOFT(NPD0T) 

BYTE LOOT 
BYTE KTXY(2) 

. DAIA.KTJ(Y /IHXilHY/ 

NVT0T.MAXV 

NVTOTbMAXV 

IF (KCK0P ,NE, 0) 00 T0 ^9 
NCP8RDaNC0PRO*l 
lVRTC(l|NCP0RD)aIVPTC(lil) 
_-JYRJC(2i.NC00RP)alVRTC(2,l> 

NC2aNC00RDa2 

NtNFLD«N0Dt>vE*0 

LD0DU(N)aNR00RD 

J"1 

DO 30 Ial«NC2*2 


... lYilVBTCUiJ) 

ILalV 

IF (IV iLE', 127) GO TO 2« 
IL«-((.NPT, IV)*1) 

28 CONTINUE 

LDOOU( I*N)aIL 
__ LPaaULL*N*l)aIVRTC<2iJ) 

30 CONTINUE 
NFLDaNFLD*! 

SET ACTIVITY FL.G 
3A CONTINUE 

SET_DAl£_iN DIRECTORY 

lACTV.l 






1 


njRTRAN IV-PLUS V02-04 f>8l4aiH Umf*ki*77 P*QE 33 

FLDUPDiFTN /TbiBlPCkS/WR 

0046 N«!BDIR-1 

0047 call lOATE ( m 0, 1 r)A, I VR ) 

0346 CALL JULIAN ( I YR . MP« t DA. JLL I 

0049 NtlBOlR/? 

0050 IF (MPlOdHDIR,?) ,N6, 0) N«N^1 

0051 1DIR(N)*IYR 

0052 IDtR(N*l)«JULIf 

0053 lACOm 

0054 35 Continue 

C SET TP EXPECT FIELD START 0P SEGEND 

0055 PJ 40 l«li4 

0056 INnEXPdim 

0057 4r CUNTIMJE 

0358 lNnExP(2)*l 

0059 lNnExP(4)si 

0060 500 CPfJTlNUE 

0061 RbTUR.M 

0062 END 
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2.7 SUBROUTINE FLDEWD 



INCREHENT NUMBER OF 
COORDINATES 


i 

SET LAST VERTEX • FIRST VERTEX 




STORE NUteER OF VERTICES IN 
BUFFER FOR FIELD FILE 



OF FIELD PROCEDURE 



COORDINATE 








2 . 8 SUBROUTINE SEGEND 


reRTRAN IV.PlUS V02-94 n6l48l22 iliif«AY«77 PAGE 36 

flpupd.ftn /tri«lpcks/wr 
OOQ l SU9R3UT1ME 

CCC 
C 

C 6MD (PiF SERMPNT card (SEr.E^D) CARD READ 

C 

CCC 


0002 

0003 

000 m 

0005 

0006 
0007 
0006 

0009 

0010 

0011 
0012 
0013 • 


0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 

0022 

0023 

0024 

0025 

0026 
0027 
0026 

0029 

0030 

0031 

0032 

0033 


/CBMi/ lACTVi IACDIiMEWU, INDEXP<4), leRELGiKCKBRi 

1 ioltf.ndexr, mano 

PYTE PaDL 

/C 0 M 2 / ID, lnFLU( 6 )*ICARn<e 0 )iITYPF 
PYTE irrLD, ICAPD, ITYPE 
parameter vaDR*512.NRTRL«400, \KDPCel450 
parameter •jdoauE^sn 

caMM^iN /ruprs/ ixDiP, i’idir. ixi» X, ixd;’u, 

1 LDTPU ViJTBL) ,LniR{MpOR) ,LO7O"(NBO0U> 

BYTE L'^PiLPf’DU 

CaMM:l\ /FILES/ Im, t0UT,LUl.LU2,LU3,LU4,M0UMT 
C 0 mm' 1 n /C0Y3/ '^FLD.NCaPRO 

include 'SYIC300,33CAMSP^RA^^■. JNIC’ 

parameter MAXCAT«6n,M4XSlJB»6D,MAxCMN«4,NPIX«19A,NLIN«117»MAXFLn«50 
l,MAXV«ll,Nn0TS«2O9.DLSKlP«lO,DSSKlP«lO,i1AXACn«6,MAXACC«4i 
2 N 0 SPyD« 6 ,N''DTwntio 

PARA^^ETEP NBOBTtl OA6 m,''0pD‘^T = 52 
/raMD?T/IxD2T,Ln0T(NB''«5T) 

DIME'^SIZ'' IX(MAXV) , IY(Mavv) 

BYTE LP0T 

RYTE LI 

BYTE L'30,Lnu 

PATA Lna/IMD/, LHU/IWU/ 

15 C0L'Tt\'iJF 

C IS ACTIVITY FLAG SET 

IF (NrLD ,FO, 0) GP T0 5'’3 
IF {TACTV ,EO, 0) Gl(! T> 49*. 

C ARITt TP Pi2/DU FILE 

call wPD'DU (IP, TERM) 

IF (1EP« ,NE. 0) G?. T0 4^0 
WHITF (7,1015) 

1015 Format (81X, 'S<^GMENT written T/ 02/DU FILE') 
kJRiTt (7,1000) IP 
loon format (IX, 'SEGMENT *,I5) 

fjti 

na 9004 ,JS1,NFLL 
•' VsLP2PU(N*7)-1 

''NrV'/*? 


0034 

0035 

0036 

0037 
0036 

0039 

0040 

0041 

0042 
004J 

0044 

0045 


LARsLD- 

IF (LD71Dli(N*6) ,NE, -1) LAHslCU 
0 7s\*7 

Kil 

''2 an l«l,NN,2 

►'7I«'''7*I 

L1«L''PDU(N7I*1) 

IV(»<)s!BYTF(n,Ll) 

LlaLPi'PU(N7I ) 

IX(K)tI8YTE(0,Ll) 

<«X4l 
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08146122 


ll.KAY-77 


page 37 


*r0RTRAN JV-PlUS V07-04 
PLDUPD.rTN /triplbcks/wp 

0046 20 C0NTTNUE 

0047 WRITE (7.1010) (LO0DU(|) 


1«N.Nn1),LABi 


0046 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 


1 (tV(I)<I>liNV} 

WRITE (7,1011) (IX(1),1-.1,NV> 

1010 reRMAT (lX.6A1.9X.Ali4X, ’LINE 'ilOlB) 

1011 F0RMAT (21X, 'PiXEL'ilOia,/) 

Nbj«NBO0UE*1 
9004 C0NTINUE 
490 C0NTINJE 

c reset activity flag 

CL^S6(UN1T»LU1) 

500 00^*: INUE 
;’ACTViD 

ir (1XD0T ,E0, 0) G0 T;? a99 
CALL UPDPT(2) 

CALL wRDi^T (ID.IEPR) 

!Xn0T«O 

IF (lERR .EG, 0) WRITE (7,1490) 

1490 F0RMAT (81X,*DJ1T DATA FILE LPDaTEC FKR SEGMENT') 


0063 

499 

C0NTINUE 


C 

WRITE TTi niRECT?RV IF NFCESsARY 

0064 


IF (lACDI ,E0, 0) G0 T0 501 

0065 


call kRDIR (ID.IERR) 

0066 


IF (IERR ,E0. 0) WRITE (7,1500) 

0067 

1500 

F0RMAT (81X, 'DIRECT0RV UPDaTED fJlR SEGMENT' 

0068 


I ACDtiO 

0069 

50l 

C0NTINUE 

0070 


NFLD«0 


C 

SET TC EXPFCT SEG START 0R DELETE 

0071 


INnEXP(l)«l 

0072 


00 502 1*2,4 

0073 


1N0EXP( 1 )»0 

0074 

50? 

CONTINUE 

0075 


return 

0076 

503 

C0NTINUE 


C 

WAS D7/nu file opened 

0077 


IF (KCKBP ,LT, 0) G0 T0 500 

0078 


CLJISE (UNIT«lU1,DISP0SE**DELETE' ,ERR*504) 

0079 


G0 r? 500 

0080 

504 

C0NT1NUE 

0061 


WRITE (7,1504) 

0082 

1504 

F0RMAT (IX, 'ERR0R-FILE CL05E') 

0083 


G0 T0 500 

0084 


END 
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2.9 80BR00TINE RDDIR 




r0RTRAN IVsPLUS V02«04 06l4B|S7 11»HAY»77 PAQE 50 

PLPUPD.FTN /TRIBL8CKS/WR 

$UBR0UT!NE R001R( IDi !ERR) 

CCC 

C 

C read D1RECT0RV PILE P8R SBGMfcNT 

C 

CCC 

0002 C0MMRN /{!0M1/ IACTVi1ACDIivEWL.INOEXP|4)iIERPL6iKCK0R| 

1 IOLTE.NOEXR.m 0 nU 

0003 byte ID0OU 

0004 parameter NBDR*5l2.N0TBLa4OO|NRO0LBl45O 

0005 parameter NM0R«256 

0006 parameter NBD0UEb3O 

0007 C0MH0N /BUPRS/ IXDIR. 1B0!R. IXlNX. IXORU. 

1 LOTBL(NBTBL).LOIR(NBnR)iLD0DU(NBD0U) 

0008 byte LD1R.LD0DU 

0009 dimension IDIR(NUOR) 

0010 equivalence (lOlR(l).LOlR) 

0011 C0MMRN /PILES/ IN.I0UT.LU1.LU2.LU3.LU4.MRUNT 

0012 C0HM0N /HS6RU/ MSQK6) |NS62(l2) «MS6R(9) 1 

1 MSQW(9).HS6DI(9).HSQD0U(M}tMS6D0T(B).M96NO(17) 

0013 BYTE mS61|MS62(MSGR|RSQM|MSQD|.MSGO0U.mS8OOT.MS6ND 

0014 lERRiO 

0015 read (LU2MXOIR.ERR>100iENO«102) IOIR 

0016 900 CONTINUE 

0017 9000 PORMaT (40X«'0IR '.317) 

0018 RETURN 

0019 100 CONTINUE 

0020 lERRsl 

0021 WRITE (7.2000) MSGI.mSGR.MSQDI .msgnO. ID 

0022 2000 PORMAT (1X.41A1.I6) 

0023 GO To 300 

0024 102 CONTINUE 

0025 IERRi2 

0026 WRITE (7.2001) MSG2. MSGR. MSGDI . MSGnD. ID 

0027 2001 PORMAT (1X.47A1.I6) 

0028 GO TO 900 

0029 END 



2.9 SUBROUTINE RDDIR 








END OF FILE READING 
DIRECTORV FILE FOR 
SEGMENT 



2.10 SUBROUTINE RDDODU 


rSRTRAN 

IVaPLUS V02-04 06149101 ll*PAYti77 P46E 

rLOUPD, 

FTN 

/TRIBL0CKS/WP 

0001 

ccc 

C 

SueR0urtNE RDDPDU(I0<IERR) 


C 

r 

READ D0/DU file F0R SEGMENT 


CCC 

C0MM0N /C8M1/ IACTVitACOIiNEWL*lNCEXP(4}.lERFLG|KCKBP| 

0002 


1 iDLTEiNDEXRi ID0DU 

0003 


8YTE ID0DU 

0004 


C0MMRN /C8M3/ MFLO.NC00R>' 

0005 


parameter NenRs512.NBTeL>4OO,NRD0l««145O 

0006 


parameter N>0D0UEa3O 

0007 


C0MHBN /PURRS/ IXDIR,IPDIR,IXI\'>1 .1XD0U, 
1 LDTRUMBTSU iLDIR(N9DR)»LD<*Dlj(lMBr6U) 

0008 


BYTE LDIR.LDRDU 

0009 


CKmmmn /riles/ in, I0UT.LUI,LI»2,LII3.LU4,MJIUNT 

OOlQ 


C0MM0N /MS^.RU/ HSGl(6},MSG?(l2)fMS8R(9}i 
1 MS'lki(9)*MSGDt (9}.MS6D0U(5)iMcGDer(8),HSQND(17) 

0011 


BYTE MSGl,MSr,2,MSGRiMSRW,M«6DI ,msGO0U>mSQO2T,MSGNO 


c 

REAH N0. RF FILPS 

0012 


read (LU1.FRR»100,FND«102) nflo 


c 

RFAT REST fe)R FIlE 

0013 


Mil 

0314 


10 90 J«1,NFLD 

0015 


NN»N*NBD‘'UF-1 

0016 


read (LUt,PRRalOO,ENDal02) (LCPOUI I ) , I aN, NN) 

0017 


MaN4'‘4Rn0UE 

0018 

9n 

C0KJTINUE 

0019 


lERRaO 

0020 

500 

C0NTINUE 

0021 


RETURN 

0022 

100 

C0NTINUE 

0023 


4RITE (7i2000) MSG1iMSGR,msGD0UiMSQND« id 

0024 

2000 

F0RMAT {IX.37A1.16) 

0025 


lERRal 

0026 


60 TB 500 

0027 

10? 

C0NTJNUE 

0028 


IERRb? 

0029 


WRITE (7i200D MSG?.mS6R,HSGD0U«mS6ND. ID 

0030 

2001 

R0RMAT (1X.43AI.I6) 

0031 


G0 Tp 500 

0032 


ENn 







2.11 SUBROUTINE RDDOT 


F0RTRAN IV-PLUS V02«<n4 06149112 11»KAY«77 PAGE 99 


rtouPD, 

FTN 

/TP|8l(?Cks/wp 

0001 


SU9R0UTINE RCDKT (ID.IERP) 


ccc 

c 



c 

r 

HF4P nar data filf 


CCC 


0002 


INCLUDE 'SYICSOO.SICAMSPARAH.INC* 

0003 • 


parameter MAXCAT«6O,MAYSU8«60|MAxCMNa4,NPlXal96|NLIN*ll7(MAXFLDa90 

• 


liMAXVslliNP0TS«2O9.DLSKlP*lOiDSSKlPalO.MAXACD>6|MAXACC«4i 

• 


2NI9SPw!)t6iN‘^DTtansl0 

0004 


PAHAHETER ^lBO0T■lO«68,^ePD'^T•S? 

0009 


C0mm;1n /Ce'^DP'T/ IXDkiT,LD2T(NPr''T) 

0006 


BYTE LP0T 

0007 


C0MMP.V /riLER/ IN, i0liT.LUI,LU2.LIJ3.LU4,M0UNT 

0006 


C0MM7'\ /MS9RW/ MSG1(6).MSG2(12)iM5GR(9), 



1 »'SGW(9»,‘'S9DI (9),MSGP0H(5) ,HS6ND(17) 

0009 


«YTE *‘*5G1,^SG2,m 9GP|MSCW,M'5GDI .►'SGn0U,MSGDPT,NSGND 

0010 


IEPR>0 

0011 


jsi 

0012 


00 10 lali-'PPTS 

0C13 


Jpv*j*:-dPD7T-l 

0014 


READ (LIJ3' t »ERR89CO|FNP*909) (lCPT IK) ,K«J, JPN) 

0019 



0016 

10 

CUNTTNUF 

"017 

900 

Continue 

0016 


Jal 

0019 


D2 11 ks1,ND^T?,3 

002U 


J*.J*156 

OOPI 

11 

C0MINH6 

0022 


RfcTUi»\ 

0023 

900 

rc^ TIN'IE 

0024 


WMITF (7i2n00) :4Sbl,MSGR,M<;GneT#M5GNn, ID 

0025 

2oon 

F/PMaT aX,40Al,I6) 

0026 


lEWRal 

0027 


G0 T-n 900 

0026 

90? 

C0MlNi:E 

0029 


white (7,2001) M<5G?,MSr.R,MsGDe!TiMSpN’5, ID 

CC30 

2001 

FBPmaT (1X,46A1,I6) 

0331 


IERRs2 

0032 


G0 T'>l 500 

0033 


ENP 
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2.12 SUBROUTINE WRDODU 

rSPTBAN IV-PlUS VOP-04 08149108 11». AY-77 PACE S6 

runuPD.FTN /TPlBL«CKS/WP 

0001 SUPRPgTlNE WPD^OU (IDiIEPP) 

CCC 

C 

C WPITF DP/DU FILF F0P SEGHENT 

C 

CCC 

0002 C0MHPN! /C0M1/ IACTV«IAC0ti'iEMLilNDEXP(4}«lEPFLG|KCKBF| 

I inLTE.NOEXP, P0mj 

0003 PYTE inanu 

0004 COmH-^n /C0M3/ NFLC.NCOPPn 

0005 C0MMPN /files/ in, l0(lT»L*ll.Li>2.Ui3,U'4,llPUNT 

0006 parameter NPnR«512.NRTPL«4nO|NRU0liBl45Q 

0007 parameter nBO0UE«3O 

OOOA C0MM^V /RUFRS/ IXDlP,If-OIR,IXp'X,lxD0U, 

I LDTflL(NBTBL)*LOIR(NdDR)»LDPD"{N6O0U> 

0009 BYTE l01R,LDPDm 

0010 C0MM9IN /MSGKW/ MSGi(A),MSG?(12)»mSGR(9)i 

1 MSOW(9)#‘*SGDI(‘>).MSGr0l)('5),'''RGoeT{S),M5GNOa7) 

0011 BYTE MSGli‘'SG2,MS6P|MSGW,M<;GPl,''SGD0U,MSr,DPT|MS6ND 

0012 IE»R«n 

0013 REwImD LU2 

0014 write (LU1,EPR«100) NFLD 

0015 Mtl 

0016 00 9« J81,NFLD 

0017 •''N8N*\RD''UF»1 

0018 ^iRlTf (L''l,ERH«lO0) ( LPPOO M ) » I »‘l, NN ) 

0019 “'«^;*\RO01)E 

0020 9? CP iTiN'ih 

oo?i BOn cB'iTiNue 

0022 PETURV 

0023 lOO Cd'TiMJE 

0024 lERRtl 

0029 write (7i 2O00> MSGliMSnw.MEGOBi'iMSGNP# ID 

0026 2000 F0PMAT (1X,37A1,I6) 

0027 G0 T-* 900 

002H ENn 
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2.13 SUBROUTINE WRDOT 


FORTRAN iVvPlUS V0?-r>4 06149119 ilmfurmll PAGE 61 

FLnuPO.FTN /TR|;iLv»C''S/wR 

0001 SUBR^uTIME KiRDaT(lCilERR) 



ccc 

c 

c 

r 

WRlTlr D«"T DAT* FILE 

OC02 

CCC 

CiJMMpiM /files/ t0UTiLUl.U>2,Lu3«LlJ4,M0UMT 

0003 


iMOL'frP *ST| t300.33CAMSP*RAM, IMC* 

nOQ4 • 


parameter "AXCAT«6P|MAXSU0»6O,MAxCMN»4,NPIX»l96.NLIN"ll7#MAXFLnt5O 

• 


liMAX\/tll,Nr<t9TSs209.tiLSKlP»10,OS5KinaiO,MAXACn«6«MAXACCs4| 

• 


2N2SPwn«6iNODTwntlO 

oro5 


parameter ►'Ht)0T«lOO68»*'BPD ‘Ttb? 

0006 


Cei^'MPN /C0“DPT/ Ixn0T,LOPT(N'm,’T) 

0007 


»JYTE LOiifT 

0008 


C0MMr»M /mS';RW/ MSlit(6)iMSG?(l2)iMSSR(9)« 

0309 


1 «S'l.i(9),MSr,0n9>,r'S6r0ll('.) ,McGn2T(8),MSGNDa7) 

BYTE MSGli‘*SG2,MSGRiMSGW|M‘;Gri,'''SG'30U,MSGDRT,MSGNO 

0010 


lERRs'l 

0011 


J>1 

0012 


00 in 1«l,vOPTS 

0C13 


JPvtj*.'iRPO*T-l 

0014 


WRITF (lUS* I.E>»H«900) ( LO0T ( K > , n , JP\ ) 

0015 


j» j^mrpd’T 

0016 

1'’ 

C0!\/T|MI'C 

0017 

50P 

Cifl'JTlMJt- 

0018 


J«1 

0019 


-10 11 -<»1 ,NL:’TS,3 

0020 


J«J*15P 

00?1 

11 

Cl?NTr.!E 

OOP? 


tall Clf^St (LM3) 

OOPS 


OErrE FILF Lu 3 ( \r»jTS, 2*., t', XT' ) 

OOP4 


return 

0025 

90P 

C0' T!N:iF 

0076 


«*»ITP (7,200n) MSG1 *mSGw,K‘;g"i0t.mS'',NiP» 10 

OOP7 

2000 

F0RMaT (lX,4PAi,l6) 

OOPS 


lE^Ril 

O0P9 


G0 T/i 5PC 

0030 


ENP 
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2.14 

SUBROUTINE WRDIR 

rBPT«AN 

IV*PLUS V02-C4 06149129 11*PAY*77 PAOE 

ru’i'i'PDi 

FTig 

/TPlWLi'CKS/wR 

0001 

ccc 

r. 

SUnRiuTlNE *<pdIR<16,16RR> 


C 

c 

WRITF niRECTORY FILE F’R SFSmEmT 

30P2 

ccc 

/C0*<1/ UriViMCOIi ■k'U,,lNCEXP(4),iERrLR,KCK0P# 
1 lnLTfe,\nE*Ri panu 

OOOJ 


BYTE 

0004 


/files/ in, t2UT.Li)l,Lii2.I.U3,LiJ4,M'^UMT 

0005 


parameter vBnKr5i2,t<lPTPL«4l*0,N'^CaLtl450 

0006 


parameter :jBO^UE>30 

C007 


9ARA‘-ETER NWOR-256 

0006 


/RUFHS/ IXDtR. I»D!R, 1*1* *. ixO'^y. 
1 iDTh'l (NbT«L).LOI9(MbOR),LnO|j' (NBOBIJ) 

0009 


BYTE L’‘1RiUDPD'J 

0010 


PI«E‘SI2‘ IDIHCNoDR) 

OOll 


FQ'iI vale* CP {PI«,L0IH> 

0012 


CKMM^s /HSGMW/ MSiilEl.MSGFd^IiMSRRtR), 

1 'S';w(9)f “SODUR) .MSGOiOUI ,|,m«;GPET(8),HBSN0(17) 

0013 


byte MSGl,^SG2,MSGP,MSRi4,M<;Grl .•'SC'iBU,MSGDPT,MSriND 

0014 


lEPRi? 

0015 


WRITE (l 02* IY[)IR,E9R*l00» ICP 

0016 


Cl^^ TinI'F 

0017 


return 

0016 

lOn 

CBNTtvilfc 

0019 


WBITc (7,2600) .iRGT,MSr«,W':G6l. ''SGND, IP 

0020 

2000 

F09MAT (1X,41Ai,16) 

0021 


lERRtl 

0022 


Git Ti 500 

0023 


ENP 
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2.14 80BR0UT1NE WRDIR 




POSITION AND WRITE DIRECT 
ACCESS DIRECTORY FIU FOR 
SEGMENT 



Original page is 

OF POOR Q'- ALITY 



2.15 SUBROUTINE UPDOT 


F0RTRAN IV.PLUS V02-C4 0BI50I09 llaPAY*?? PACE 77 

FLOUPDiFTN /TR|BL»CKS/WR 

0001 subroutine UPDBT (I0PT) 


CCC 

C 

C UPDATE D0T DATA FILE WHFN DR/DL FIELD IS DELETED 

C 

CCC 

C lOPT a 1 SEGMENT DELETED 

C lOPT a 2 N0RNAL ENTRY 

0002 INCLUDE <SVI C300i3]CAMSPARap. ImC< 

0003 a parameter ‘4AXCATaA0|HAYSUBa60|MA)(CHNa4,NPIXal96|NLINail7|MAXFLD850 

• i<MAXValliND0TS82O9.DLSKlPalO.DSSKlpaiO,HAXACna6|MAXACCa4i 

• 2N0SPUDa6«NROTWDalO 


0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
0016 

0019 

0020 


parameter NBD0TalO66eiNBPO'’TaS2 

C0HM9IN /C0MDRT/ IXD0TiLDPT(NBDrT) 

BYTE LD0T 

parameter NBORa5l2tNBT8La400|NpORUal450 
parameter NBD0UEa3O 

C0MM0N /BUFRS/ IXDIR. IBDIR. IXImX, ixDRU. 

1 LOTBL(NBTBL)iLD1R(N8DR)iLORDu(NBD0U) 

BYTE LDIRiLDBDU 

C0MMJIN /FLDCBM/ IVRTC(2|MAXV) 

C0MMRN /C^^3/ NFLD,NC00RD 
DIMENSI0N LABEL (ND0TS) 

D1MENSI0N IVERTX(2,MAXV,maXFlO>iLABFLD(MAXFLO) 
DIMENSION NVF(maxFLD) 

BYTE LI 
BYTE LFER0 
DATA L2ER0 /O/ 

C DPES D0T DATA FILE EXIST F0b SEGMENT 

IF (IXD0T ,bO, 0) R0 TB 500 
200 CONTINUE 

C CMECK AND SET DOTS F0R FIELDS 


0021 

0022 

0023 

0024 
002B 
0026 
0027 
0023 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 


Ka3 

D0 205 laliNDklTS 
LABEL( I )«LP0T(K) 

KtK^MPPnBT 
205 CONTINUE 
KaA 

D0 604 lal.NFLD 
NVTaLD0OU(X) 

NVF( I)«NVT 
L*1 

D0 602 JaliNVT 

LlaLD0DU(K*L) 

lVERTX(liJiI)slEyTE(OiLl) 

LlBLr0DU(K*Lal) 

IVERTxt2iJi:)aIBYTE(0,Ll) 

LaL*2 

60^ CONTINUE 

LABFLD(I)aLD0DU(K*l) 

IF (I0PT ,E(3, 1) LA0FLD(I)aO 


0040 KaK«NBO0UE 


0041 604 CONTINUE 

0042 CALL FLGD0T ( NFLD, MVF , I VERTX , LaBFLDi L ABEL ) 

0043 Ka3 

0044 DO 214 Ial,ND0TS 
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0045 LDmjOiLARELUl 

0046 K«K«N0PD0T 

0047 214 CONTINUE 

0048 900 CONTINUE 

0049 RETURN 

0090 END 


11«MAV«77 


PAOE 70 


pace ,s 

Qu.mity 


\ r 
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2.16 SUBROUTINE JULIAN : 

_ . P0RTBAM IVaRtUS -m*iU 061 4* 184 U «M4 T «8^ r 

LJ FLOUPD.FTN /TRIBL8CKS/HR . . ^ ... 

OPfll SUBRauTiNE JULIAN lYB.MBiDYi JU lIB.1 


JUflC 47 


0002 

QJ11U_. 

0004 

0005 
0Qfl6 .. 


IMPLICIT 1RT6GER (A«l) 

. JUMEnSIBN CflMTAB<18X— - 

DATA C0NTAB /0i3i»40«91ti8i*l92«l62i21S. 

1 ^44.^?4«3ilS4^/ 

JULIRbC0NTAB(M0)*OY 

XXtYBtloafl 


0007 

QMS 

0009 

OHIO 


YY«XX«( (XX/4)*4) 
_lE_LYYJ.lt.. Jl--JllklB*JULJ0iA 
RETURN 

END 
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A flowchart is not furnished for this subroutine. 
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P0RTRAN IVaPLUS V02«04 00149149 11*HAY«77 PAQE 73 

FLDUPD.FTN /TRIBL®CKS/WR 

OOQl SUBR0UTINE FDL!NT<P1ELD|NPTS«FL* YLlNEiNSAMPi JJ) 


Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 


this SUBR0UTINE WILL RETURN THE PIXEL NUMBERS 0F TH09E 
pixels 0N A a given line that are C0NTA1NED WITHIN THE 
B0UNDARIES 0F A N9N»RECTANQULaR FIELD 


INPUT FIELD - N0N-R6CTAN6ULAR FIELD TABLE 

ALL THE vertices MUST BE IN CL0CKUl$E 
0RDER AND THE LAST VERTEX HAS T0 BE EQUAL 
T0 THE first VERTEX F0R FIELD CLBSUPE 
The FIRST VERTEX MUST HAVE MINIMUM 
PIXEL VALUE 

NPTS • N0 0F P01NTS 0F ThE N«R FIELD 
YLINE • SCAN LINE NUMBER 

0UTPUT Fl • ARRAY C0NTAIMNB THE 0RDEREO PIXEL INTERCEPTS 
NSAMP • N0 0F samples C0NTAINED IN THE FIELD 0F 
A GIVEN SCAN line 

JJ • THE length 0F the array FL 


0002 

0003 

0004 

0005 

0006 


parameter MAXI*8 
L.IMENSI0N FIELD(2.NPTS)iFL<MAX 1) 
INTEGER XI, X2,Yl,Y?i XX, FL* FIELD# YLINE 
INTEGER XNM1,YNMI,XNP2.YNP2 
IF(NPTS.EO.2)G0 T0 35 
C» 0NE VERTEX FIELD 


0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0032 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 


L» YLIME 
D0 7 N ■ l.MAXI 
7 FL(N) ■ 0 
NPTSE » NPTS*1 
I ■ 1 
JJ a 0 

100 XlaFlELDdil) 

YlaFiEL0<2, I) 

J ■ !♦! 

X2aFlELDd, J) 

Y2aFtELD(2, J» 

IF { I '.EO. 1 ) G0 T0 200 
IMl a I-l 
XNMlaFlELDdi IMl) 
YNMl,nELD(2,lMl) 

G0 T0 300 

200 XNMlaFIELDd.NPTSE) 
YNMlaFIELD(2|NPTSE) 

300 IPl a Nl 

XNPlaFlELDdilPl) 

YNPlaFIELD(2i IPD 

IF { I '.EO. NPTSE) G0 T0 400 

IP2 a 1*2 

XNP2aFIELDdilP2) 

YNP2aFlFLD(2iIP2» 

Q0 Ta 500 

400 XNP2aFIELDdi2) 
YNP2»FIELD(2 i21 

500 IF ( Y1 ,EO, Y2 ) G0 T0 1000 
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0036 

0037 


IF((L.EQ,Y2).AND.(y2',E0,VNP2)) T0 2000 
IF((l.FQ.Y1).AND.(v1'.EO,YNm1)} GP T0 2000 


0038 

0039 

0040 

0041 

0042 

0043 

0044 
0049 

0046 

0047 
0046 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 


PL • L 
RXl • XI 
RX2 3 X2 
RYt » Y1 
RY2 ■ Y2 

RXX «<(CRL*RY1)*(RX2-Rifl))/CPY2-RY1))*RX1 
XX s RXX*, 5 

IF(Y1,LT,Y2) 60 Tff) 510 
XXsRXX 



IF( 

(RXX.XX) 

,6T. 

.5) XXsXX«l 





510 

C0MT1MUE 








IF 

( (XX.6E. 

XI) 

.AND'. (XX .LF, 

X2) 

) GP 

T0 

600 


IF 

((XX. le. 

XI) 

.AND. (XX ,GE. 

X2> 

) GP 

T0 

600 

2000 

I B 

1*1 








IF 

( I ,6T. 

MPTSE ) 60 TP «= 






60 TR 100 

600 IF(L'.LF.V1.AND,L.GE,Y2> 60 TP 7 OO 
I^(L'.LE.V2,A^'D,L.GR,Y1) 60 TP 700 
60 TP ?000 


0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 


70P JJ « JJ*1 
FL(JJ) » XX 

IF ( JJ .EO, 1 ) 60 T0 2nor 

IF ( I .ME, MPTSE ) 60 TP POOD 

IF{L>f-.V2) 60 TP 3000 

XNMl.xl 

YNMlaVl 

X1*X2 

Ylxy? 

X2«FtEL0a.2) 

Y2trtFLn(2,2) 

60 Tr 3001 

3000 IF ( L .ME, VI ) T0 200n 
3001 IF ((VI. LT, YN“1) ,AMD. (VI .GT, Y2 )) 6P T0 4000 
IF ((VI ,GT, VMMl) ,ANn, (VI ,lT, v 2)) G0 T0 4000 
G0 Tp! 2000 
4000 FL(JJ) « 0 


0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 


JJ ■ JJ-1 
G0 TP 2000 

loon if(l'.n^:,yi) G0 T0 2000 
IF(X1.6T,X2) GP T0 5000 
IF(YNMl.LT.Yl) T0 6000 
IF ( YMP? ,GT, Y? ) 60 TP 7000 
JJ 8 Jj*l 
FL(JJ) ■ XI 
60 Tp 2000 

7000 JJ • JJ*1 

FL(JJ) B XI 
MM B JJ*1 
FL(MM) b X2 
JJ s MM 
G0 Tt 2000 

6000 IF ( VNP2 ,LT. Y2 ) 60 TP 2000 
JJ 3 jj«l 
FL(JJ) B X2 
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reRTRAN IVaPLUS V09>04 
rLDUPD.FTN /TRiRlBCkS/WR 

0092 Q0 T0 2DOO 

0093 5000 IF { YNMl ,LT, VI ) 60 T0 9000 

0094 IF ( YNP2 .GT, Y2 ) 60 T0 2000 

0095 JU s JJ*1 

0096 FL(JJ) B X2 

0097 IF(NPTSE.E0,2)FL(JJ)bX1 

0098 G0 T0 2000 — 

0099 9000 IF ( YMP2 ,GT, Y2 ) 60 T0 6000 

0100 JJ « JJ«1 

0101 FL(JJ) » XI 

0102 MM B JJ*1 

OlOi FL(Mm) ■ X2 

0104 JJ < Mr 

0105 2000 

0106 8000 JJ • JJ^l 

0107 FL(JJ) » XI 

QlOB GZ T0 2000 

0109 S NPTSl « JJ-1 

0110 D0 29 n ■ liNPTSl 

0111 NPl * ^.I*1 

0112 02 29 NJ s NPliJJ 

0113 If ( FUMl) - FlINJ) ) 29,?9i26 

0114 2P. NTEMP 8 FLINI) 

0115 FL(N!) B FL(MJ) 

0116 FL(NJ) « NTEMP 

0117 29 CZ^'IINUE 

0118 NSAMp s 0 

0119 Oe 30 r » liJJi2 


0120 ''N 8 N *1 

P121 MSAMP s NSAMP*(FL(NN) -FL(‘')* 1 ) 

0122 3C CZVTIWUE 

0123 9 ETU 9 \ 

0124 35 IF(YLI’'E.NEiFI(=L0«2i1))RETURN 

0125 FL(l)mFlFLP(l»l) 

0126 FL(2)8F1FlP(1» U 

0127 MSAMPil 

0128 JJ?2 

0129 »ETUP^ 

0130 end 
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2.17 SUBROUTINE FLDINT 


See volume 3r section 11.2 for a description. A flowchart is not 
provided. 
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U 


! 


rtlRTRAN IV-PLUS V02.04 06149137 U*MAY«77 PAOE 69 

rLDliPDiFTN /T9 |Pl?'CKS/WR 

0001 SUSR:^ljTlME FLQOST (NPrLDiNVi VERTEX. FLDLAB.DLA8EL) 

C PLASS DTiTS which lie within D0/OU FtElOS 

C written by ruth winter 

C NRFLO - N0, RF FIELDS 

C NV - N0, 9F VERTICES IN EACH FIELD 

C VPRTEX * SPATIAL (PIXEL. line) C00RDINATE PF EACH VERTEX 

C FlDLaB - TWO character label (D0 0R DU) F0R EACH FIELD 

C OlaREL - CATEQ0RY INOICaTPR F0R EACH D0T 

0002 IMPLICIT INTEGER (A>?) 

0003 include 'SYICBOO.BSCAHSPaRAM.InC' 

0004 • parameter MAXCATw60iHAXSUB«60.MAXCHNa4*NPlXai96|NLIN*ll7iMAXFLO«BO 

• l.MAXVsll.Nr)0TSa2O9.DLSKlPtlO.DSSKIPtlO.MAXACO«6|MAXACCa4i 


0005 

0006 

0007 

0008 

0009 

0010 

0011 
0012 
0 013 
0C14 

0015 

0016 
0017 
OOIB 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 


2N0SPWDa6.Nv'DTWDslO 

DIMEnSIRN NV(MAXFLn). VERTEX(2,WAXV.HAXFLD). 

1 FLnLAH(MAXrLD.DLAREL(NO?lTS).FL(B)iLB(HAXFLO).LE(MAXFLD) 
DIMENSI0N SB(MAxrLn) .SECMAXFLD) 

C RESET all DPTS WITH DP PR DU L*0EL 

D0 in UI.nDPTS 

IF (OLABEL(I) .EO, •!) DLARELdlaO 
IF (HLABELd) ,EO, -2) DLA-^ELdlaO 

10 CPNTtNiiE 

np 15 dl.MAXFLD 
L3( I )«lCno 
Le( din 
S0( I >11010 
SE(1 )i0 
15 CPSTIN^E 

D0 20 J■1.^’0^LP 
NVTinvC J) 

D0 20 Wil.'.VT 

LB(J)i‘^lN(Lci(J),Vi:»TFX(2.K,j)) 
lL(j>i‘^ax(lE(J) .vertex (2.K,ud 
S8(J)iHi'J(SBf J) , VfeRTEXd.K, J) > 

SE(J»i«A (SE( J) .VERTEXdiK, J) ) 

20 C0NTINUE 

NPiNPlX/DSSKIP 
D0 50 joi,^'0rLn 
OPTiO 

DP 40 L.INEi10,NL1N.DLSKIP 
00 30 1S»10.NPIX,DSSKIP 

0PTi(LlNf/0LSKIP«l)*NP*lS/nSS4IP 
IF (LINE ,LT, Ldfjn QP T0 4o 
IF (LIME ,GT, LEfjn GP T0 4n 
IF (IS ,LT, SB(J>) GP T0 30 
IF (IS ,GT, SE( Jd GP T0 30 
call FOlINT (VERTEXd.l. J),NV< j),FL. 

1 LIvE.NSAMP, JJ) 

00 3C Iil.JJ.2 
IF (IS .LT. Ftd)) GP T0 30 
IF (IS .GT, FLd*ld G9I T0 30 
OL49FL(D"'T>irLrjLAB< J> 

900P F06MAT (lOXdDuASEL '.2I4> 

33 C0^iTliMUE 
40 C0NTIMUE 
50 C0NTINUE 


0044 RETURN 
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0049 END 


2-66 


2.18 


SUBROUTINE FLAGDOT 


v» 


See volume 3, section 11.1 for a description. A flowchart is net 
provided. 


2-67 


2.19 
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rSRTRAN IVaPLUS V02*04 08148139 11«PAY«77 PAGE 40 


rinuPO. 

FTn 

/TP|9L8Ct'S/WP 

00^1 

ccc 

C 

8U0R3UT|NE NPLPST 


C 

C 

CCC 

FtELD start (PLOSTAPT) ~'AS pEaD BUT WAS NPT EXPECTED 

0002 


C8MM8N /C8H1/ IACTVi lACOIiVEUk. INCEXP(4). IERFL6iKCKBP| 


] 

1 lOLTE.NOEXR.lnenu 

0003 


9YT6 IO0DU 

0004 


C0MM0N /C0V3/ NrLU.NC02RD 

OOOb 


C0MHP\ /files/ IW, I0uT,LU1,U'J2,LU3,L'J4,H?uwT 


c 

SET ERPPR FLAQ 

0006 


IERFLG"! 


c 

What was expected 

0007 


D0 ID ltli4 

0006 


IF (inOEXP(I» ,NE, 0) 60 T-» 15 

0009 

in 

C0NTlNiJE 


c 

N'TMI'JG 

0010 


60 T3 500 

0011 

15 

C0^Tin'JE 

0012 


60 T^ (20,500,30,40), I 

0013 

20 

C0NTIMJE 

0014 


CALL E>fPTD(l) 

0015 


call fldst 

9016 


60 T'* 500 

0017 

30 

C0NTlNii)E 

0016 


IF (nC’0»D ,LT. 2) 6P T0 3? 


C 

Complete last FfEin 

0019 


call FLDENr 

0020 


iepflg«o 

0021 


call fldst 

0022 


60 T3 500 

0023 

32 

C0^TI\IIE 

0024 


CALL EXPTD(3) 

0025 


IF (Hfc-L .'-'E. 0) WRITE (7,5000 ) 

0026 


WRITE (7,1032) 

0027 

103? 

F0RM4T (1H*,100X, »<2 VFRTlrES ".feriNED') 

0026 


ME aLsI 

0029 

34 

CP'JTTMJE 

0030 


write (7,1036) 

0031 

1034 

F09M4T (61X,»LAST riELO BPITTE"',/) 

0032 


ierflg«o 

0033 


call fldst 

0034 


60 T? 500 

0035 

40 

C0MTIMJE 

0036 


CALL EVPTD(4) 

0037 

5000 

F0PMAT (IH ) 

0036 


IF (MEWL .*!E, 0) WRITE (7,5000) 

0039 


WRITE (7il050) 

0040 

105'' 

F09H4T (1H*,96)(, »S?GEND SI“LLAtE0* ,/) 

0041 


mEwl «i 

0042 


CALL SF.6ER!*, 

0043 


CALL fldst 

0044 

500 

C0*JTTMIB 

0045 


RE TUP IV 


2.19 SUBHOUTIME NFLD8T 


”|LDID CARO NOT r nflDST 
EXPECTED V 


SET ERROR aAG 


NUMBER OF VERTICES 


FIELD ID CARO ^ 
NOT EXPECTED. WHAT 
WAS EXPECTED? 


COORDINATE 


CALL EXPTD TO PRINT 
APPROPRIATE MESSAGE 


BEGIN SEGMENT 


<2 VERTICES DEFINED FOR 
LAST FIELD 


CALL EXPTD TO PRINT 
APPROPRIATE MESSAGE 


'CALL FIELD START ROUTINER 
JFLOST) J 


CALL EXPTD TO PRINT 
APPROPRIATE MESSAGE 


CALL SEGEND 


LAST FIELD OMITTED 


CLEAR ERROR FLAG 


CALL FIELD START ROUTINE 


CALL FIELD START ROUTINE 


CALL ROUTINE FOR END OF 
. FIELD 


SET ERROR FLAG ■ 0 


CALL FIELD START ROUTINE 






2 . 20 SUBROUTINE NCNTRL 


F0RTRAN 

FtnuPo. 

0001 


IV-PLUS V02-04 


FTN 

CCC 

C 

c 

c 


/TRl0LglC KS/Wff _ 
SUBRWUTINE INCNTRlI 


06148142 


11«RAY«77 


PAGE 42 


CRNTRPL CARO WAS READ BUT I^aS nrT EXPECTED 


0002 

CCC 

C0MM0N /C0H1/ lACTVilACDIi' 



L lDLTE.NDEXRiin0nu 

0003 


BYTE ID0DU 

0004 


C0MMPN /files/ 1M,10UT,LU1 


c 

UhaT mas expected 

0006 


D0 252 lclt4 

0006 


IF (IMnEXPd) ,NP, 0) G0 T 

0007 

262 

CBN'TTMUE 

0006 


G0 T2 500 

0009 

284 

C0NTINUE 

0010 


Q0 Tn (500. 246. 2R8. 294), I 

0011 

CO 

CM 

CB^TlMlJE 

0012 


IF (INDEXP(3) ,NE, 0) 6P 

0013 


CALL exPTD(2) 

0014 


G0 T^ 210 

0015 

28B 

C0^TT\UE 

0316 


CALL £XPT0(3) 

0017 


CALL FLDPND 

0018 


G0 Tf 210 

0019 

294 

C0^TTNUE 

OOPO 


CALL EXPTD(4> 

0021 

21C 

CONTINUE 

0022 


call segenp 

0023 


CALL CNTRL 

0024 

500 

CONTINUE 

0025 


return 

0026 


ENP 


2.20 SUBROUTINE NCNTRL 



CmtOlNAi; PAGE IS 
GP POOlv QUALITY 





F0RTRAN IV.PLUS V0a>04 08l4Bl45 11«MAY»77 PAGE 44 

rLOUPDtFTN /TRIBL0CKS/WR 

QOQl SUBRSUTtME >NflEL&i 

CCC 
C 

C FIELD CARD MAS READ BUT WAS NFT EXPECTED 

C 

CCC 

0002 CBMM0N /C0M1/ lACTVi lACOIt^'EML. 1NDEXP(4)« IERFL6«KCKBP| 

1 IDLTEtNDEXR.IOBDU 

0003 BYTE ID0DU 

0004 C0HM(HN /files/ in* I0UTiLU1.LU2.LU3.LU4.HPUNT 

C SET CHECK AND BYPASS FLAG 

0009 KCKBPsl 

C WHAT CARD WAS EXPECTED 

0006 D0 iO I»l*4 

0007 IF (INDEXP(I) ,NE, 0) 60 15 

0008 10 c0nt!nue 

C N0TMIN6 

0009 60 T0 500 

0010 19 C0NTINUE 

0011 60 TO (20.30*900*40)* I 

0012 20 C0NTINUE 

0013 CALL EXPTD(l) 

0014 IF (nEML *NE. 0) WRITE (7.9000) 

0015 9000 F0RHAT (IH ) 

0016 WRITE (7il021) 

0017 NEuLil 

0018 60 Tfl 490 

0019 30 C0NTINUE 

0020 CALL EXPTD(2) 

0021 IF (NEWL .NE, 0 ) write (7.9000) 

0022 WRITE (7*1021) 

0023 1021 F0RMAT (1H*,101X* 'FIELD PUT 0F 0RCER') 

0024 NEWL*1 

0029 60 TP 496 

0026 40 C0NTINUE 

0027 CALL EXPTD(4) 

0Q28 IF (mewl *nE, 0) WRITE (7,9000) 

0029 WRITE (7*1021) 

0030 NEWLsl 

0031 CALL SEgENO 

0032 498 C0NTINUE 

0033 CALL FIELD 

0034 900 C0NTINUE 

0039 RETURN 

0036 end 
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06148199 lUMAVar? 


6A0E 46 


. fERTBAN 
TLOURO. 

i- mi 


0002 

. 0QQ3 
0004 
00D9 

0006 

0007 

V 0008 

0009 

0010 
0011 

0012 


1V«PUS V06-04 
‘TN /TRIBL0CKS/WR 

lL0fiJLJiATA RktHSO 

CCC 
C 

e RiAO/WRITE ERROR MESSAQSS 

C 

ece 

C£llM6Jil.^S6lU/ KSfiUAJJllB2U?iiilEaaiOl4 . 

1 MSOU(9)*HSGDt(9).MS6D0U(9)tM$6D6Tf6)iM96ND(17) 

BYTE HSGl • HSG2 1 MSGRi HSGMi MSGD 1 « NiOOBU* HSGO0T , MSGNO 
data MSGl /IHE.iHR.iMR.lMB.lMR.lH / 

DATA M$02 /IHE.lMN.lHDtlH .1H0.1HP.1H «lHFilHl. 

1 1HL.1hE.1H / 

06TA MSGR /IH .IHR.lHE.lHA.lHD^lMJjlHNaHGilK / 

DATA HSGU /IH .1HH,1HR.1HI.1HT.1H1.1HN.1HG.1H / 
DATA HS6D1 /lHOilHItiHRflHEilHC*lHTilH0ilHRiiHV/ 
DATA MSGD0U /1HO.1H0.1H/.1hOi1hU/ 

DATA MSGO0T /IHO.IhB.IHT. IM (IhO.IhAiIHTiIHA/ 

DATA mSGND /1H .lHP|lHlilHLtlH6ilH ilHPilH0iiHR( 

1 IM .iHS.lHEilHG.iHH.lHEilHMilHT/ . 

END 
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2 . 22 SUBROUTINE NSEGND 


rSRTRAN iVaPLUS V0t«04 06148110 il«HAY«77 PAGE 

' FUBUPDiFTN /TmPLgCK S/WR 

0001. SUBiftmiTiNE JSES5S1 - ~ 




ccc 

0 




V 

c 


SEQEND card was read but was N0T EXPECTED 

r 


ccc 

CeMWBN /C0W1/ IAfiTVilACDItNEWL«l.NDBXP(4.JUERfJ.6iKCKB^i 


0002 


3 

1 lOLTEiNOEXRi ID0BU 


0003 



C0MM0N /C0M3/ NFLDiNC00RD 


0004 



C0HM0N /files/ in. t0uT.LUl.LU2.lU3.LU4 , mount 


000$ 



BYTE ID0OU 



c 


wmat was expected 


0006 



D0 10 Ir1i4. . 


0007 



IF (TNOEXP(I) ,NS. 0) 60 T9! 15 


0008 


10 

C0NTINUE 


0009 



60 TR 500 


0010 


15 

C0NTINUE 


0011 



60 T0 (20.30i40.49Q). I 


0012 


20 

C0NTINUE 


0013 



CALL EXPTD(l) 

\ 

0014 



60 T0 500 


0015 


30 

CONTINUE 


0016 



IF (INDEXP(4) .NE, 0) 80 T0 49q 

V 

0017 



CALL EXPTD(2) 


0048 



60 T0 490 


0019 


40 

CONTINUE 


0020 



IF (NC80RD ,6E, 2) G0 TO 488 


0021 



CALL EXPTD(3) 


0022 



60 TR 500 

1 . 

0023 


408 

CONTINUE 


0024 



CALL FLDENn .. 


0025 



60 Tr 490 

( 

0026 


50 

CONTINUE 


0027 



CALL EXPTD(4) 


0028 


490 

CONTINUE 

/ 

0029 



CALL SE6END 


0030 


500 

CONTINUE 


0031 



return 

1 

0032 



END 




i 

) 


6 






3. DOT DATA UPDATE PROGRAM DOTUPD 


HFERTaik-lWsPLUS -Viiaa 04 10114134 Ql-AJfiw 77 PAGE 1 

DETUPDiFTiV /TRI0L0CKS/MR 

0001 PR0GRAR O0TUPD 

0002 Implicit inteqer(a>2) 

0003 include 'SYiC300.33CAMSPARAM.lNC* 

0004 * PARAMETER "AXCAT»6n , MAXSUB bOO , vA <CHN«4, NPl X«194, NL I M*117i M A xru #«(, 

tt l»MAXVilliND0TSt2O9.OLSKlPliO4OSSKIP«lQ.MAXACO>6.'1AkACCl4i 

• 2N0SPWO*6»N1OTwn»lO 

0005 C0MM0N/INF01/OPTnUF(3f NDi?TS},A'jT 

0006 DIMENSI0IV CAPOiArl.FILeNMdS) 

0007 DATA SEG2Ln/-9/ 

0008 data StGf'Lfi/r/.DMTFLR/O/.TVPFLG/O/.STArLG/V 

0009 data FlLENM/ 2 HD 0 . 2 H. 2 t« 2 Hr 3 * 2 Mgc. 2 H» 3 . 2 HOO« 

• , 2 H ,?H D.2MD0,2MTS.2M.n.?MAT,2M|l.o/ 


0010 

0011 


0012 

0013 

0014 


0015 

0016 


C 

C 


CALL aSSI6M(3, •F?'R001,PAT' ) 

0P6N THE riRFlLE.DAT FILE 

0PEN(ljNlT»9,NAME««t3OOi3fO3OtHriLE,DATll'»TYPE»* iilO* . 
ACCESS* 'niRECT'»MAXREC»200.RFCaKDSI2E«12&) 


C 
C 
C 

C read and InOEV'TIFY a card 

c 

100 


20P 

c 
c 
c 


lDENT«RDrARD(C».RD) 

60 T!’ I2n0.300.4n0,5r0,l?5a,f00), IPEVT 
C0NTI,\UE 

TmIS SECTlaN k^AVDLES SECrtENT CAf-’C^ 


C 

C 

C 

c 


SEGFLQ*SEGFLGtl 
iFiSfr.FLG ,6(3, 2) 6u T^* 7J0 

IF SEGFLG«1 PROCESS SFGmEmT C'S*: 
IF S6GFLG«2 PROCESS SfeGwEVT C.'R" 


^ I ■ 
y • 


NEfXT ITF.^ATie'^ 


0017 


print ?02 

OOIB 

202 

FfiRMATdMO) 

0019 


PRINT 203, CARD 

0020 

203 

r 2 RMAT( 5 X, 40 A 2 ) 

0021 


DECi 5 nEd?,? 04 ,CARD,ERR«l'' 3 '' iScGNUM, IMT 

0022 

205 

F0RmAT<9x, M,1X, Al) 

0023 


segflg»i 

0024 


irCSEGi^Ln ,EO, SFCMiNXiZ Tf luC 

0025 


SEG 0 LD*SEGM ^4 

0 C 26 


CALL SIIBSTR(CA»D,10,4,FIlEN^,14,4) 

0027 


CALL DSkCHK(SEGNUM,PTR,DSK 1 D,KlaG) 

0028 


IFIFLaG ,ED, 2 ) Gt' Te 1300 

0029 

c rfad 

IFIFLaG ,E 0 , 1 ) CALL 0 PMESSd.SKlD) 
the PrHPER O 1 RECT 0 PY REC'’R’> 

0030 

r 

REA 0 ( 9 'PTR) DPFIL 

0031 

u 

CALL DlRL 3 D(PTR) 

0032 

r 

G 0 TO 100 

0033 

300 

C 0 VTINUE 


c This 

SECTI 0 N handles TVP 61 CARDS 

0034 


PRINT 203 .CAR 0 


3-1 


rORTRAN lv;PLUS V02«04 10I14|34 0 UauQ*77 

-O0.tyP.D.t.fTN /TRiRt eCKS/w R : 


page 2 


0055 - .insEOFlO .EO^ -fll M T0 l85fl_ 

0036 tF(TYpPLQ) 302.305,302 

0037- 303 -RR4ill-3ft4 

0036 304 PeRHAT(lHO,«ERR0R»—i»NLY 6NE TyPEl VALUE ALLOWED'. 

JLJ6R 8ERMENTU 


0039 

0040 

0041 

0042 

0043 

JL 

0044 

0045 

0046 
-0.067 ■ 

0048 
-0049 


00 T0 1270 

305. OEe0DC(lO«31O,CARO.ERRfl29Q) TVPl 

310 P0RnAT(6K,!2) 

TYPFLflil 
00 TP 100 


400 CONTINUE 

C THIS SECTION HANDLES START CAPOS 
.PRINT 203, CARD 
C 

IFISEqFLG ,EO. 0) G0 T0 l250 
OIlSlAfUil 410,420^412 . — 


410 

415 


0050 

0051 

0052 


420 


print 415 

FJRmAT(1H0, 'ERROR*«?0NLY 0NE STaRT VALUE ALL>’'*PD«, 
' per SE6MENTI) 

00 T0 1270 

decode ( 10, 310, CARD. ERR«1250) START 
.If(SURl-.GT. a '.AAU3., STaR 1_:,LE, 60) 00 Tu 100 


0053 


print 425 

0054 

425 

F0RmAT(1HO,9X, 'ERRPR 0N sTaRT CaRD— VAL' ifc 


• 

' OR greater THA^ 60 

0055 

r 

G0 T0 1270 

0056. 

-500 

.00RTINUE 


c This 

SECTUN handles n0T CARDS 

0057 

r 

print 203, card 

0058 

V 

IFCSEqFLG .eg. 0) G0 T^ l25C 

0059 


IF(tjNpAK(CARD,D0TFL6>) 1?70, *505, 1270 

0060 

- 505- 

DOTFLOn 

0061 

r 

Q0 T0 100 

0062 

600 

continue 


c This 

e 

SECTION handles END 7>F FitE 

0063 

V 

.-LFlS£GFj.S.;£a,-0 ,0R. C6TFL6 ,E6.0) ST0P 1 

0064 

r 

E0FFLG*1 

0065 

700 

continue 


c 

c 


0067 

0066 

0069 

0010.. 


This SECTI0N UPDATES THE XXXX'.D0TS,DaT FILEIALS? THE fJlRECT0Wr fIlE 

IYJ*E» ' Old • J ACCESS! ' D IHECT • I 

• P0RHB 'UNrORNATTEO'.RECRRnS I ZE«13. DISPOSE* 'RAVE', 

• blocks IEE>ND0TS,aSS0C1ATEVAR I ABLE«V1) 

CALL UPOATE(TYPI.INIT) 

CALL 0lBUM10lART,TYP-li. 

CL0SE(UnIT«6.DISP0SE*'SAvE') 

IF(E0 FF Lfl ,EQ, 1) STEP 2 


C 

-C 


lALlTIAUtE FLAOS 


3-2 


OWGttAl, PAC,. , 
Op PO/in i; 

^ quality 







I 


F0RTRAN tV.PLUS V02»04 i0.ll4|S4 0l«AUQ*77 

DJTUPDtrTN 4TBiaLgCK.8/IAR 


PARE 3 


0072 

0074 

-om- 


C 

-700- 


8SCFLQ«0 
-^y8 f 4.4«0 
STAFLQaO 
.. .oa..yfl_200- 


0076 

0077 


C 

-c — T #ia .SSC T 4a M FOR-SBROR-^lgaSAaE AN& REC0VERV 
c 

■im 
1260 


PJUAt.1^1260 

roRMATdHOfOXi' I mproper sequence. or> improper oata.rr. 


tCR LUM N M IR AI IbN ME mT .0» T MS- C 6LLa*t I M G C4 B D * 4- 


0070 PRINT 203.CARD 

OOJ9 1270- PRINT 1275.SE0MUH 

0000 1275 FORsATdMO, tPROCESSINQ SEQMENTMO.' UlU. BE riSC^NTTUF: •• 

- -• -t... PROCESS 1 NR UILL CONTINUE WITH A 

• 'SEGMENT 0p halt hlTM AN EPF') 

-OOOl IE-CSEGFLQ- «EQ,-2) GO TB 7Sf, 


NEW 


0002 

0003 

0064 

0005 

0086 


iDENTaSKIP(CARn) 

SO TO(7S0.12SO«4260)44QEi.T 
12B0 print 1285 

1205- FORmAT(1HO. 'READ EOF AND TERMINATED') 
STOP 3 


.0007 


C 

C - 

c 

_c_ _ 

c 

1300 


This section Hanses disk check flags ia 2 
Is wrong disk pack mounted 
2a segment number IS NOT IN THg SYSTEM aT ALL 
WHICH IS A WIPE 0UT1 

TYP.E 131D4SEGNUM 


0008 1310 FORMATdHO. 'ERROR* 

0009 STOP 

0090 end 


-illegal SkGMENT '. 14. /.IX. 'RUN ABORTED') 





3. DOT DATA UPDATE PROGRAM DOTUPD 


f TAur] 

v__ > 




C)^fJ 

^nriWZ3f4s 




(RlXAltD 




iifeS—^PRi^ir 
1 D^r Ligsi 



uiJMt 
Por caKp 







fScip ro 

>Kr5XGpMG 
^Cak.& 



CLoiE 

- 


^i^tSXk 



- J 

espijr 

T^^l. C.Agh 


5T£>J2.£ 





"r*rVfe i )/ALilZ^ 


-rm -- i 

>ies^ 





5m»r 04ga 

— > 

5To^£ 

^CT ]JBU>L: 

H 

Scr 

iTAftLli 
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3.1 FUWCTIOM UMPAK! 


riMTRAN 

MTUPtt* 


IVi 

£UL 


#LUt 


V02«04 
7TlUJLaCKS/Hfl. 


10114147 


01»4UO«77 


paQE S 


0001 

0003 

0004 • 

• 


INTIOER FUNCT10N UNP4K(C*RDinOTrL6) 

--4M0L1C1T |NTE0SR(A«2) 

lNeLUDE«SVlC300*S3CAHSPAPAH.tNe« 

PARAHiTfR HAXCATaAn«PAXSUBa60^MAXCHNi4,NPlXil96.NLlMPll7|MAXFL^t5: 
l*HAXValliNO0TSB2O9.OLSKlPalO«OSSKtP«lO.HAXACn«4i»^AXACCt4. 

■attaSPilBM* XaOTMBalfl „ 


0005 


C 0 MM 0 N/!NrPl/OOTPUFC 3 |NDr!T 5 ),«MT 

0006 


UflOlCAl*! LABL 06 ( 2 )«V 1 iV 2 (SPaCE 

0007 


dimension CAP 0 I 40 ) . 0070 ( 72 ) •lASEl(I) 

oooa 


E 0 UlVALENCE(LABfc>.«LABLe 6 ) 

0009 


data D 0 TS( 72 )/ 1 M /.SPACS/IM / 

0010 


ngcaDsiao.io»CAan»EftB* 20 &UYR£.tAaEL«(BaTSU).i«i. 7 i) 

0011 

10 

F 0 RmAT( 4 Xi ! 1 . 1 X.A 2 . 1 X. 71 « 1 ) 

0012 


IFClASLOOd) ,NE. SPACE)C 0 T? 14 

0013 


IABU 06 U)pLAPLR 6 ( 2 ) 

0014 


UBl 0 G( 2 )iSPaCE 

0015 

14 

IF<OPTFlQ .EO, 1 ) 6 Z TP l 5 

—OOlO. 


JlhllaC 

0017 

15 

C 

continue 

0010 

C 

IFdVpE ,LT. 0 .'>■«. TYPE .GT. 2 ) GO T? 200 

0019 


KbO 

0020 


DOlAiUtlBO 

0021 


00 60 J* 2.72 

0022 


VIbDOTSCJ- 1 ) 

0023 


V 2 «D 2 TS( J) 

0024 


1 F(V 1 .EQ, SPACE) G 0 TP ?0 

0025 


KaK«l 

. 0026 


1 F(K . 6 T. 3 ) GO TO 200 

0027 


decode ( 1 . 50 . VI, ERH« 2 O 0 )m 

0020 

so 

raPHATdi) 

0029 


DOTnUmbOPTNUMbio ♦ M 

0030 


IF(v 2 »SPACE) 63 . 70.60 

0031 

70 

1 F(DPTNU“ ,LT, 1 , 0 R, O 0 TMIN ,GT, N 0 PTS)r,,; T'l ? 0 r 

0032 



JlAlTiKNltl 

0033 


D 0 TBUr(l.KNT)aD 0 TNUM 

0034 


D 0 TsUF( 2 .KNT)pTYPE 

0035 


IF(CATLOQaABEL.LAPNUM) ,EU. 1 ) 58 TP 21 ? 

0036 


D 0 TaUF( 3 ,KNT)«LA''.NUrt 

0037 


OOTnUwbO 

0030 


KiO 

0039 

60 

C 0 NTKJE 

0040 

w 

UNPaKbO 

0041 


return 

0042 

200 

print 210 , card 

0043 

—210.- 

fORMAT( 10 )L.‘EMOR(S} ON THE rZLLSMING CA»D,PUE*SE ChEC*< ALL •. 


• 

•letters and ‘UhBpHS pop PROPFB field PLacE*<E T',/, 


• 

10 X. 40 A 2 ) 

0044 


GO TP 215 

0045 

215 

UNPaKbI 

0046 


RETURN 

_ 0067 

- ... . 

END - _ 


Op 




/V, 


()!' 


3-6 





3.1 FUNCTION UNPACK 

A flow chart for this function is not available. 


41 ^ 
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3.2 FUNCyriOM CATLOG 


r0 RTRAN !V«PlUS V 02-04 10114199 Ol.AUG-77 

naviiBn.rtftt yvBiai Ari/e>uB 


0001 INTEGER FUNCTION CATLEGCLABEliLABNUM) 


IbI .1 Fr>n^v4B#lia'vf< 


Integer catnam 


%■> V V.. 


-4a T4 5ft 


0007 50 

-MM 

0009 

M40 -50^ 

0011 


00 lOO J«li60 

-If <CA TN A M <J) -W-M 45 -200 

ifilabel .ne. catnam(^)) go ra loo 


CATl06«O 






3 . 2 SUBROUTINE CATLOG 


orviciNA’ 

Oif' POOR 


A flow chart for this subroutine is not available. 


^ I"AGE is 
QL'.\UTY 
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i 



1 


3.3 SUBBOOTINE DIRLOD 


rSRTRAN IV;PLUS VQ2«04 10114199 Cl»AU6-77 PAQE 9 

DITUPPiFTHl /T».iaLBCK8/HR - _ 

0001 SUBR0uT!ME DtRL0O(PTR) 

iUUU IMPUCIT IMTEOBfliAail . 

0003 C0HM0N /CATNAH/ CATNAM(61) 

0004 mMOMptOM P |P H 0<a947 

0009 L06!CaL* 1 OtRL06(9l2) 

-00X10 EQU4..<UIENCE -X0.HIM0.,.D1 01001 - 

0007 RECbPTR 

0000 REAOIO’REC) OlRVin 


0009 

0010 
0011 

0012- 

. .. _ 

KiO 

-00 40 1 192 *112 
KiK«l 

riTiLiAii(KtaniBunM i 

0013 

To 

CONTINUE 

0014 

c 

RETURN 

0015 

c 

ENTRY OIRUPDCSTABT, TYPED 

0016 



CAUL lDATP<MO,nAVt YR) 

0017 


01RWD(S6)>YR 

OQia 


O1RuO(37)bJULIAN(M0,OAYiYR) 

0019 


DIRL0G<75)«START 

0020 


DIRL0Q(76)*TYPE1 

0021 


NOCaTbO 

0022-. . 



K*0 - -- 

0023 


D0 80 Ii92ill2 

0024 


KbK*1 

0025 


DlRwn( I )«CATNAN( k) 

0026 


ir(CATNAM(K) ,NE. 0) N0 CaT» 

0027 

60 

C0Nt!nUE 

am. 


-.DIRuDlllUNBCAT 

0029 


WRITE(9>REC) DIRwO 

0030 


RETURN 

0031 


END 


I 
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. 3 SUBROUTINE DIRLOD 


PtK - pei/JpsR TO pJSon^ C£Ccfij> Z>J 

ox^scToni p^L&, 


src»e^ CAm&oRi io/if»&s 


r.v I .' I / / HP, rrw j 


^e,TU^ rJ 


^tJrRi DTB.UPDL^rf^^rjTif£i) 

T - VAlusi r^Pur fROrv^ data Cr^^iL 


OX/2i=rC Re<-ofiT>'. 


p) 76/^ a 
iruLi^^ 
^5) STafcr 


:ruLi^^) oay 


uH^D/^r<£ pecist^o 

(l) aJ€* 0 £ArAto/‘2y 


mgtpzt.m 















( _ 


3.4 FUNCTION JULIAN t~ 


F0RTRAN lv;pLUS VQ2.04 i0llSl04 Ol-A'jQ-77 

DgTUBQifTW /TRlBlflClfS/MR 


PAGE 11 


t 

( 

( 


0001 

MM- 


0003 

4004- 


rUNCTl0N JUU1 AN(m0iOAYiYR) 
4NT«4Ofi-TmwOAY+40 


0005 

0006- 


DIHENS10N HDAYS(12) 
-OAIA 


0007 

-0004- 


NDAYS(2)a2a 
4 g - (lM 6 mvH , 4> ,60i Oi M DA YS(al « 29 - 


>>3li30»3lt30t3l/ 


0009 

^040- 

0011 

-0044- 


T0TaL«O 


- 20 - 


0013 


1F(lEN)10«10i20 
JULIAN* 

RETURN 

04 30 t«i«LEN 


0015 

0044 

0017 


T0TAL*T0TAL*MOAYSm 

C ANT ImUE 

JULlAN*T0TAU*DAV 

R ETU RN - — 

End 






3.4 FUNCTION JULIAN 

A flow chart for this function is not available. 
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3.5 DATA RAMDOT I 


F 0 RTRAN IV*PLUS V0a*04 10115106 nl>AU6*77 PAGE 13 

-,DaiURD.*fTW /TRiBLBCKS/WR - 

0001 BLACK DATA 

0002. i N C LMp g »SVI C800 .?3 CiK$PAaA M. IMC* 

0003 • parameter MAXCAT■60|MAXSUB■60t^*A)(CHN>4,NPIX■l96t^!LIM■ll7|MAXrL''s50 

. l<MAX)(all<NO0TBl2O9*£LSiaPflO»OSSKlPllO,NAXACrB6iMAXACC«4i 

• 2N0SPWD«AiNRDTWD«1O 

— OftOA CAMmAM /RANDBT/ RANDAJt moats > — 

0005 integer RANDAT 

0006 OAlA RAMDAT/200 ,a7*20B«14,127i99. 35*196. 191«95«66* 

• 137* 122* 166*114*^1.00 1 206* 30. 9 0. 172.199. 

• m*56<17*44*435*174*48. 121*166.184*2* 

• 112* 132. 4*161*43. 60 *156*63* 201 198>94, 

^ a- 39. 66*125*lia*i04*134«B2«.l£5 .15*147*157. 

• 77*75.161*3*76*147*202*8*136.73*69* 

• 152* 13* 207*153*9. 175* 33* 32* 24 *162* 131* 

• 42*l8*49*203*36*l*159*96.67*iV3*i7l« 

• 50*19*70*120*164.66*54*194*61*93.166. 

• 173*221 105* 180* 115* 5. 27, 46* 17. 36. 16. 

a — 64*76*26*204*124.69*176*106*144.143*6* 

• 141* 72* 59* 10* 201*71 *190 *107. 130*40*66* 

• 146* 102*31* 162* 137. 62* 177 *136* 167* 163* 51. 

• 34, 129* 151. 166. 113*119. 23. 52. 21, 109* 150. 

• 195.29*145*55.209*106*92.117.64.97.79* 

• 91*45.126*165*26.116,53,139*108.111.160. 

- -a 74i7*ll^48,15..154*58,74.l92.l69.123. 

• 98. 178. 140, 205. 101. 65* 103, 57. 126.179. 142. 

A 83,156*25*189,133*170*100,41.149.159,37/ 

0007 END 


! 
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3.5 DATA RANDOT 
A flow chart is not available. 
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3.6 SUBROUTINE UPDATE ! 

reRTRAN IVaPUUS V02«04 10119110 Ol«AUO-77 PAGE 19 


7T l/TT JTW RT?n; 



f 

r 


3.6 SUBROmiNE DPDATE | 

auu Tif£L» 

XiJir ^ ^ ^ 



keTUR.fJ 






'3.7 SUBROUTINE ALLUPP | 


fl?T?AN^jV«PLUS V0?*04. 


10USI19 Pl*AUQ*77 


page 17 


0001 


SUBRBuT I NE ALLUPO ( NSRKi TvPl 1 1 t T ) 

^oa. 


- - IMPLICIT iNTOQIlltAai) 

0003 


include 'SVlCSbO.OSCAHSPAPAP'.lNC' 

0004 t 


. PAlUHETtR MAXCATl60| MAXSUBi6Qi PAXCHM 

• 


ltHAXVallfND0T8>2O9.DL8KlP«lOiDSSKIPB! 

m 



~0005 


C0HM0N /lNr01/ 05T8ur(SfKDPTs)fK^T 

0006 


C0HN0N /RANO0T/ RANO0T(NC0TS) 

0007 

C 

L061CaU«1 W0PKI2.NO0T8) 



c 

.NEt Tv»i .E<s- 0 

0009 


00 20 J«1(ND0TS 

0010 


0LOLAB«40RK(2. J) 

0011 


U0RK(li J)«0 

0012 


IflCLDLAB ,EQ, -1 '.0R, 0LOLAR '.EOi 

0013 


IPIINlT .60, »CM W0RK{2,J)«n 

-2014 

20 — 

. CSAITIaOJE — 

OOlS 

30 

D0 40 Jtl,KNT 

0016 


D0TNUH*O0TBUr(l, J) 

0017 


TYPE«0<*TBUr(2, J) 

0010 


LABELbD0TBUF(3*J) 

0019 


?ILOLA8*W'*RK(2,n0TNUM) 

-0020 



iriOLOLAg .60, •! '.0R» 0LDLAB '.EQ, 

0021 


IFdNlT ,60, 'C» ,0R, TYPl ,gT. 

0022 


IFITYPE ,GT, 0 .AND, LABEL .rT, P) 

0023 


W0Rk<1,D«TNUm)«O 

0024 


U0Rk(2iO0TNUm)cO 

0029 


60 TP 40 

002 6 

39 

W0RjClliD0TWU‘*)*TYP£ 

0027 


W0RK(2iD3TMUM)blaBEL 

0028 

40 

CONTINUE 

0029 


IF(TYPl ,EO, 0) 00 T0 13'> 

0030 


NhITScO 

0031 


D0 100 jal,NO0TS 

-0012 - 


- PIiaA^lPOT(J) 

0033 


LA8ELaU0RK(2,PT) 

0034 


1F(LABEL ,L6. 0) G0 T0 lOQ 

0039 


W0RK(liP7)al 

0036 


MHlTStNHITS*! 

0037 


IFINHITS ,E0, TYP1» <50 If llC 

.0038 . 

100 

^ C0NTINU6 

0039 


TyP1«*JHI TS 

0040 

110 

00 120 Jal.NO0TS 

0041 


LABELaW0RK(2, J) 

0042 


IFILABEl ,L6. 0) Gf T0 120 

0043 


TYPE“K0RK(J ,J) 

-0044_ - 


irnvpe ,le. DiHafiK(i*4Ja2 

0049 

~12F 

C0^iTlNUE 

0046 


return 

0047 

130 

NHiTSaO 

0046 


00 200 Jal.NOBTS 

0049 


TYPE»W0RK(1,J) 

0090- 


IEITYpE.EO, 11 j>lMmf.NH!l8*l 

0091 

200 

CONTINUE 

0092 


TYPiaMHITS 


0)&e Te 3c 


>2)60 T? 20 


-2)Q0 
QP T0 
G? T0 


35 

35 


40 
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3.7 SUBROUTINE ALLUPD 

A flow chart for this subroutine is not available. 
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3.8 FiroCTIOM RDCARD 


F0RTRAN IVaPLUS V02-04 


10(19122 


l?l«4llG-77 


0001 

OAOL2.. 

0003 

DOHA 


INTEOE*^ PUNCTI0N RDCAftD(CARO) 

implicit IfclT£fi£RU«i) - 

DIMEK'S10M CRDTVP(3.3)|D0T(2}.CaRD(4O) 

-JIAJA CPDTYP/1MSE,.2HSH^H£N« 

2HTY,2HPEi2Hi , 

gHST.gHAW.gHT / . 

data OPT/aHOGiEHT / 

STATICARDJNICARIU - 
60 TP (20fl00|110).STAT 
D0 50 Jal«3 

IF(CPMPAW(CRDTYP(l,J)ii,ft,CAWD,l)) 53,70.3'' 

- C0NTlMUg - 

IF(C0mPAW:D0T,1,3,CARD<1))1G.6O.iO 

J«4 

R0CaPD»J 

RETURN 

RDCaRO*5 ICAR3 READ ERRPR 


RDCaRD«6 

RETURN 

END 


lENC 0F file 





3.8 FUNCTION RDCARD 
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FONCTIOM SKIP 


F0RTRAN tV«PLUS V02«04 lO 115125 nl<A'jG«77 

DBTUPD.FTN- Z18xBLMKS/ilR 


0001 


INTEGEP ruNCTIRN SKIP(CARO) 

0002 


IMPLICIT INTEGER(A*2) 

0003 


DIMENSION) CROTVP(S)iCARD(40) 

0004 


data CROTYP/2HSE.2HGM42HEN/ 

0005 

10 

STAT>CAROIN(CARO) 

0006 


QB Tg (20ii(l»50I>5IAl - 

0007 

20 

IP(CBmPAR(CRDTVP.1.6«CAR0«1)) 10. 30 • 10 

OOOB 

30 

SKlPtl 

0009 


RETuPN 

0010 

40 

SK1P42 

0011 


RETURN 

0012 

30 - 

-SKlPiS - - 

0013 


RETuRn 

0014 


END 




3.9 FUNCTION SKID 

A flow chart for this function is not available. 
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3.11 FUNCTION COMPARl 


T0RTRAN IVaPLUS VQ2-04 lOllSiZe Cl«AUG*77 RAQE 2<& 

.-MTUP&4/-IJSL- -V_miBL?CK8/Ha_ - 

0001 integer function C0*^PAR(A« I.NiB.J) 

0002 implicit integer (A-21 

0003 L06ICaL« 1 AU),b(l) 

C 

c C0MPARE Character strings 

c - - . 

C IF A iLT, B C51MPAR***! 

C IF A iEQ. B CSMPARaO 
C IF A iGT. a ceiMPAR«*l 
C 


0004 


IS«1 

0009 


■jsrj. - - 

0006 


C0HPAR>O 

0007 


00 70 Ks 1 ,N 

0006 


m1»A(1S) 

0009 


M2t9(jS) 

0010 


IS>lS4l 

0011 


JS9JS«1 

0012 


IFCM1-M2)50 

0013 

90 

C0HpAR« «l 

0014 


return 

0015 

60 

C0MPAR* 4l 

0016 


return 

.0017 

70 

CONTINUE- 

0018 


return 

0019 


enc 
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3.11 FUNCTION COMPAR 

A flow chart for this function is not available. 
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3.12 8PBR00TINE SOBSTR 


F0PTRAN IV-PLUS V08-04 lOilSiSO 0 UauO«77 

J0TUPD«FTN /.IRAaLgCHS/HB 

0001 SU0R0UT1NE SUB8TP(A«I»N«9f 

C H0U£-1. T0 B 
C A« INPUT array 
C. Ui- 81ARTINQ BYTE PBS1T10N 
C 

C-N..i.-NU.MaER 0 F BYTES TB H0VE 

C 

c Bi receiving array 
C 

C J« starting byte POSITION IN RECEI'ING ARRAY 


0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 

. J012- 

0013 

0014 

0015 
0C16 
0017 

0019 

0020 
0021 
0022 
0023 


Cm. number flF 9YTES Tja _Bg_ R£C£j V lEn . 

C 

C N0TEI TRUNCTED !*R BLANK FILLEO IN RECEIVING ARRAY IF 
C number ^F BVTFS MPIVED IS DIFFERENT THAN M'MnER 'F BYTES hFc: = IVL 

C . 

C N0TEI BYTE POSITION ARE TP> PE CfUvTEc STARTING '-'ITH TwE 1 


implicit INTEGER (A-2) 
L0GICaL* 1 A(l}.tl(l) 

_ data BliANK/2H / 

IS«I 

JS«J 

l»o 

if(n .eq, 3) 6P re 20 

L«N 

!F< L .GT, M ) L*N 
D0 10 Kii,l 

B(JS )«AnS) 

IS»IS ♦ 1 
JS«JS ♦ 1 

in continue 

IF( N iGE, ro RETURN 

2n l«l ♦ 1 

M JO.KiLi*^ 

B( JS)b9LANK 
JS>JS«1 
30 continue 

return 

End 
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3.12 SUBROUTINE SUBSTR 

A flow chart for this subroutine is not available. 
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3.13 SUBROUTINS 0PMES8 


r0RTRAN 1V*PUU8 V02-04 I0ll5|32 Cl»AUQ«77 RAGE 30 

-JJBTUFUim ^tajBL®£KS/W«l 


0001 

0002 

0003 

0004 

C 

X 

subroutine 0PHE88(D1SKNM) 
integer OISKNH 
U06!CaL*1 ANS(16)*BLANK 

data blank /1H / 


0005 

W 

20 

Type sOiDISknn 


0006 

SO 

r0RHAT(lHO« 'THE \EXT SEGhEnTr T0 BE PROCESSED w]lL 

• 'DISK NUMBER •.I4,//.lX,*ir Y?U WISH T0 

• 'PLEASE H0UNT DISK NLhSER 

BE F0i'i\tP 

C3NTr'UE 

“ 

- • * 

t «Til£N l«£._Tii£. LETTER tOJ AND CARRIAGE REJUar^.'j 
• IHO.'IF YPU WISH T0 AP^RT THIS JBf THEN TyPE IN THE 
A 'LETTER (X) A.-.O CaRRIaQE RETuRn'iIOX. 


c 

• 'THANK Y0U'l 


0007. 

c 

ACCEPT 40«ANS 


0008 

0009 

0010 

40 

F0RmAT(16A1) 

D0 50 JAI.16 

1F<ANS(J) ,ne. blank) r.0 T^ 6J 


0011 

0012 

90 

CONTINUE 
Q0 T0 20 


0013 

0014 

.90 

IF(ANS(J) .EO, 'Y') return 
TYPE 70 


0019 

0016 

0017 

70 

r0RMAT<lHOi ' analyst AB^iRtED Rwm») 
STPP »A85!RTt 

end 




^ * 


4. CAM8/CA8 INTERFACE TAPE UPDATE PRMRAM B8TAT 

~ Hf •RTfiAtr IvolUS V02«0> 2^ >*A6El 

—MTAT.FIU /Til8LBC88/HR 

ceeccccccceccccccccccccccccccccccccccccccccccccccccc 


c c 

C . CLUSTER STATISTICS JUWATB fJjN ilMSZiAS 5 . 

c Interface tape • bstat>tn ■ arr irtt c 


0001 

0002 

0003 

0004 


0009 

0006 


ececeececccecc ccccccc eecccecccc c cccccccccCLCcecgcccc c 

IMPLICIT INTEQER(A»E) 

include 'SYICSOOiSSCAMSCOwBm, tAC 
include 'SVIC300i3]CAMSPARaM.|vC« 

parameter MAXCAT«6n|HAX8UBi60»»*AXCHNa4,NPIX*l96i^>L!N*ll7iMAxrLr«'iC 
liMAXVilliNO0TS«2O9.DLSKlPalO.OSSKIP«lO.MAXACr>6.MAxACC>4i 

2N0SPWO«6»NPDTND«1O . _ _ 

equivalence (''l(ACnATE)i (C9»iSEC~),(C3iPFLA6)i(C4|Txi), (C9,DT§Ktr;> 
INTEGER Cl(469)«C2(296)iC3(71),C4(34e),C9(620) 


C* 


0007 

0000 

0009 


integer ACDATE* subcat, SUBPpP.CaTKNT>CATTm 
BYTE CHnVEC,N0CHAN.NPSUB,D1'TCAT,D2TCLU 

C0MM0N/C0Ml/ACDATE<2,MAXACC),CHNVEC(MAXCMN,MAXACC).Nff!CHA J, ifTSlH, 

l5UfCAt<MAXSUB),SU9P0P(MAXSuS)#CATKNTTNAXCAT),eAtT'H(MAxrAT),f.C«t'. 


2N0DUiN0TH,O0TCAT(NO0TS),D0TCLU('ND2TS) 


0010 

0011 

0012 

0013 

0014 


INTEGER ADATES.SUNA2.ANALSr,rLOLAV.D:9TnAV,PDATEl,TOATEl 
integer POATES.TOATEP.POAT^J.TrATESfCATNAM.riSKP.BANDJM.GOin 

Byte DELFLr.,N0AC(l,S0ILCR,S'l^ELJ^ST4RT,NTrPEl,ALP,AI P0 

BYTE PCtCT,PCTCT0,VAP,VA90.OLA«EL,tYDE 

C0MN0N/CDM2/ISEG,DELFLG,n0aCQ, aCaTES(2,MAXAC^),S'^IlSR(maXaC;]), 

1SUNEL(MaXACD),SUNA 2(HAXACD) •IMrATE(2 ), ANAlSTCSIiFL^DAyce), 
2O0TOAY(2)iNSTART,NTYPEl,RDATEl(2),?OATEl(2),PO»Te2{2)»TDATK2(''. , 

3RDATE3(2),TDATB3(2),N0CAT,CATN|M(haXCAT),aLP(MAXCaT),ALPP, 

4 PCTCT(MAXCAT),PCTCT0,»/AR(MAXCAT), VARP 


0019 

0016 

0017 


0018 

0019 

0020 


0021 

0022 

0023 

0024 

0026 

0027 

0026 

0029 

0030 

0031 


integer ErLAQl,EFl.A02,EFLAr.3,Bri.AG4,EFLA0S,UPLAGl,'jFLA52,urLAG‘A, 
1UFLAG4 

integer PFLAGiOSKMNT 

C0MM0N/C0M3/PrLAO,nSKMNT,ErL46i,EFLAG2,EFLAG3,eFLAG4,ErLAG5,un A^i 
liUFLAQ2.UFLAQ3,UFLAG4,NEWL&B(MAXSUB) 

Ti" ■ 

INTEGER TXl,TYl,TX2,TY2, AC'ISP,0,B.DTWIND,D7TABV,GMlN»GMAX,r"L 

integer spwind,clawnd,cluw^ D 

C0MM0N/C0M4/TX1,TY1,TX2,TY7,IXi, !Y1,IX2,IY?,aCPISP(2»,1II<4),',(4). 
1B(4),oTuIND(9,N0DTuD' SPi*'I’'O(9.N08PWD), ImwInD( 4),N'IMD0T, 
2D0TARV(NDBTS),QMjN.GHAX.rUL ( 2, 7) . C LAMND { S ) , CLU ‘-<NP > 4 ) _ 

c0mm0n/cGm9/o I stmi , Random < * opTb) , gr ! b t nopts > , OlaIPEl < ndpts j , 
1TYPE(ND0TS),RECLPC 
BYTE IBUMBOO) 

SYYE v«4) 

EUUIvAlENCEIX, I6R) 

PiMENSjBN 16R<2J 

real X 

REAL STATI2160) 

BYTE ClASS(6) 

dimension T(60),TP(60),S(60) 
byte BlK(2) 

BYTE AlPHA(36) 
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FORTRAN IV< 
B8TAT.FTN 


rPLUS V02«04 

/triRlpcks/wr 


14102119 ?<s-ui:U-77 


PAfit 2 


0032 


BYTE ZERt 

0033 


•'YTc lITU1C(13) 

0034 


byte ST*TN(11) 

0039 


BYTE rfiYR(9) 

0036 


byte HmSEC(5) 

0037 


EOvJIvAlEncECOLCAT.BLK) 

0030 


byte DlReO(24) 

0039 


byte nETA(30) 

0040 


real TliOELTi 

0041 


DATA riREr/»S*,»Y'.'0',*IS 

0042 


DATA BlR/' •/ 

0043 


TATa STATN/»T',‘S»i»T*,»\*i 

0044 


data lITillC/'U*, *b«. *2' « 

0045 


DATA 2ER0/‘P*/ 

0046 


T1sBeCnOS(0,0) 


D 

iF(i,fea,i) n^c»t«c 


w 

c 

READ A^O process ReC^'Gf ITP^ Sr-B 


c 

recbros 

0047 


file-0 

0040 


7P^3«o 

0049 


P«0 

0090 


H0FLG«0 

0051 


IFCl.EQ.l) BP TkJ 79 

0052 


T0 80 

0053 


47 call CDRE?nb>iF,R,riLP) 

0054 


|r(B,E0,0) CL3Sfc(liMT»l) 

0059 


lF(FlLE.3r,?) 0/ TP 

0056 


R«R*1 

0097 


imourtD.N’E, "’* ) -r Tv. - 

0090 


0SC?DE<A»l04,lBUFa-9<>)) e 

0059 


nijaCq*o 

0060 

c 

DID*0 


c 

SET UP DATA BASE DlRELTtrPY FlL' 

0061 

L 

N»14 

0062 


L»1 


0 

IFd.EC.l) G-^ T^ 41 

0063 


N«1 

0064 


DP 42 l*LiL*l? 

0065 


BETA( 1 )*DlREC(Nl 

0066 


N«N*1 

0067 


42 CP'YTt^uE 

0060 


L«L*l3 

0069 


41 CPNTpJuE 

0070 


DP 40 I«L.L*lf' 

0071 


BETA(I)«D1REC<m» 

0072 


N*N*1 

0073 


40 CPNTI^ijE 

0074 


L*L*ll 

0075 


BETA(L)»0 


n 

1F«1iE0.1) K3 T^ 60 

0076 


call DS><CWK(SFGV£?.PTR,uSKt:} 




t , • • P « 


• I 


• T * , * : • I ' ' ' / 


, . T • . I . • , * p • , . 

• » • L • , ' 3 • , • 0 * . • w’ • » • » ' . • 1 • , 


pArp Tc 
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% 

m : 

o 


rBRTRA!il.W*kuS yo2*04 14102J19 2l«JUL-77 .. PAGE .1 

bstat 

ifTN 

/TRiBlOCKS/WR 

0077 


ir(fLAQiiQa) OMfl 62 

0076 


irtfLAG.EQ.a) Q0 T0 64 


D 

Ifd.60.1) 60 T0'6O 

0079 


1FC0PnO.EO.1) 60 T0 70 

0060 


0REN(ijNlT«3i TYRE* *0LP'i.NAREBRETA. ACCESS* 'OtRECT*. 
•HAXRtC"2OO(REC0RDS!2E«l28) 

0061 


0pN3*r 

0062 

70 

CONTINUE 

O.OSi. 

0084 



F1ND(3*RTR) 

REA^^^F^) ■ C^ ORIGAAL PAGE iS" 

0065 

60- 

r 

CINTINUE OF POOR quality 


C SET 

p 

UP STaT file NAME! < ? IXXaYTsIAT’.DAT 

O064l 

V 

L*1 . __ . 

0067 

0 

N*1 

IFLN.EOil) 60 T0 14 

0068 


00 12 I«La*12 

0089 


ALPHA(I)«LITUIC(N) 

0090 


N*N«1 

0091 

12 

CONTINUE 

0092 


L*L*13 

0093 


N*1 

0094 

14 

CONTINUE 

0095 


D0 9 laLiL^S 

0096 


ALPMAli >*1BUF(147*N) 

0097 


IF(ALPNA(I),EO,' •) ALPHA(I)«'0* 

0096 


N«N*1 

0099 

9 

continue 

0100 


L*L*4 

0101 


N*1 

0102 


DO 11 i«L,L*10 

0103 


ALPRA( D*STATN(N) 

5104 


N*N«i 

0105 

11 

continue 

0106 


L«L*ll 

0107 

C 

ALPWA(L>*tl 


C C0NVERT and ST7RE ACOUlT!0M DATES 

z ■ ■ 

RI«74 

DEC0DE{2,iO2iI8UF(Ri >) CYB 

DEC0DE(3.lOS»ISUrcRI*2)) CDY 

T0ATE3(1)«CYR 

T0ATE3(2)sCDV 

RIH54 

D0 1 UXt* 

ir(iBUr(Ri ) .Eo. 'oo g 0 lo 
DEC0D£(2<1O2*IBUF(RI); ACDATEa. I) 

102 F0RMaT{I2) 

OEC0OE(3,1O3*IBUF(RI*2)) ACDaTECEi I) 

103 F0RMaT(I3) 

RI«Rl*5 

G0 T0 1 

10 AC0ATE(l.n«0 
ACOAtE(2,1)«0 


0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 
0119 
0123 
0121 
0122 
0123 


} 


4-3 


?a-wUL.»77 


haGE 4 


r 0 RTftAN tV-PLUS V 0 S «04 14102119 

BSTAT.rXN /TP|Pl 9 CKS/WB 


0124 


tP(NuACO,EQ, 0 ) NUACQBt -1 

0125 

1 

r 

continue 


C CONVERT and STPRE CHANNEL VECT 'R 

0126 


N 0 CHAN* 0 

0127 


JJ »0 

0126 


D 0 97 IA« 1,4 

0129 


D 0 9 e lC«l ,4 

0130 


jjijj«l 

0131 


CHNvEC<IC,!A )»0 

0132 


1 F(IB'JF{ 83 aJJ),F 0 .' 1 ») G' Tjr 

0133 


GO T 0 96 

0134 

96 

CHNVEC(lC«lA)il 

0135 


N 0 CHAN«N 0 CMAN «1 

0136 

96 

CONTINUE 

0137 

97 

C 

CONTINUE 

0138 

c 

DEC 0 DE( 4 , 1 O 4 ,I 0 UF( 56 )) AL'ETS 

0139 

104 

F 0 RMaT( 14 ) 

0140 


OECODE{ 5 ,i 05 » 1 B' 1 F( 64 )) 'OT'^. 

0141 

105 

FflRHAT( 15 ) 

0142 

c 

DECOOE( 5 | 105 ,IBUF( 69 ) ) N«!''L 

0143 

C 

JBI 

0144 


l«l 

0145 


SETSR *14 

0146 


RJ «249 

0147 


LFLC »32 

0148 


00 6 KK* 1 iHA)^CAT 

0149 


CATkNTUkIbO 

0150 


CATTH{KK)iO 

0151 

8 

CONTINUE 

0152 


N 0 Th*O 

0153 


<K *0 


0154 

0155 
"156 
Ci 57 


C 

c 

c 

c 


c 

c 

c 

c 


PRPICESS subclass KELATFD CLaSSIMC ■ I !?• 
results 

20 K*1 

22 C^^NTjfiuE 

00 2 n«1i6 

CLASS<N)» IRUr(RJ-l*v) 


SKIP subclass 
SUBCLASS NiAmE 


IF letters 3.4 
ARP ^J0T *CL» 


K,.t 


0158 IF(ClASS( 3 > ,NE, *C» ) PE T 7 

0159 ir(CLAsS(4),Ne,*L»> na ^ 

c 

C C 0 VVERT last TW 0 CHARACTERS ^F S'JtrLASS 
C NA“E • ST 0 RE AS SUBCLASS 
C 

0160 nEC 0 DE< 2 .lR 2 .CLASS( 5 ) ) !S''eri. 

0161 BLK(l)aCLASS(l) 


4-4 


'-L i>vcr 

- Qi'ALlTY 


F0RTRAN I^.RUil..Viia»04 14U12U9 _ _ lfsjUL*77 

BSTATiFTN /TR|Bl0CKS/WR 

Ot62 IFCNbCaT.BO.O) Q0 10_ft 

0163 00 9 KKaliNBCAT 


PAGE 9 


0162 

0163 

-9164 _ 

0165 

0166 
0167 
0166 
0169 

0120 

0171 

0172 

0173 

0174 
0179 

0126 


continue 

N0C4IiN0CAT*l 

KKaNBCAT 

CATNlM(NfCAT)lBLCAT. . 

CONTINUE 

D6C0PEt9 . 1Q9.!B UF( RJ»22n SUBCT 
OEC0DE(9|1O9«|BUF(RJ«27)) TMRgS 
CATKNT<KK)iCATKNT(KKl*BUflCT_ 
CATTM(KK)aCATTH(KKJ*THRES 
N0Th«N0TH*THRBS 
SUBCATdSUBCDaKK 

l»I»i 

IF(J,EO,ALSeTS) 60 TO 45 

IF(K.EOiSETSR) G9I to 13 


0177 


3 

IF(J, EG, ALSETS) 

0170 




0179 



IF(K.EOiSETSR) 

016Q 



-K«K*1 

0101 



rj«rj*lfld 

0102 



GO TO 22 


C 




C 

read 

KE)(T Recognition 


C 



0183 


13 

call CdRED(I6UF. 

0184 



RJ«3 

0165 



SETSR«22 

0166 

c 


GO To 20 


c 



0167 


45 

continue 

0108 



Ial«l 

0169 



NOCLUSbI 

0190 



rF(N0CLUS.EO.O) 

0191 



N0SUB>nOCLUS 


GO TO 


(SET N0SU8) 


read and process subclass statistics 
record 


continue 

call CDREn(IBUF.R.FILE) 
1F(I8UF(1),NE,*SI J GO 
DEC0 dE(2«102i IBUFdOn I 


T^ 44 

^Ct 


OECOdE( 3,103. IBUF<5n 

(Insert testi is alsets ■ 

N0T»nCH/4 

1«1 

LFLD«11*9#NCH , 

37 RJ»12 

DEC0bE(2.lO2i IbUF(en 
K«1 

OBTAIN statistics FOR THE 
AS INPUT FROM tape 


stsets 

stspts 


SElSR 


th subclass 
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14102119 


24-JUL-77 


PAGt 


FORTRAN iVvPLUS V02-04 
BSTAT.FTN /TR|0L3 CkS/WR 


0204 

0805 

0206 

0207 


36 CONTINUE 

IFnB‘JF<RJ*2),Ne.‘C») e«! 7’ 4 
ir(lBUF<RJ*3).N?,*L') 3lil T-* .) 
DECIDE ( 2, lO2il0'JF(RJ*A)) INTiirj 


C 


0206 DECRDE(5,105, IHUF(RJ*6)) 

0209 L»36«(!*1)«1 


C 

c GET AND Convert statistics P- iR.’Ups 
C 0F 4 • A TEtRAD of CHAMNELS 


0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 


1T«1 

0FF«11 

29 continue 

D3 30 JJ*1.4 

DEC(»DE(5,105, Ib'JF(RJ*PFF) < mcak 
STATcD^IFLOATCVEANn/lf^O. 
V(JJ)*STaT(L) 

DEC51DE(4,i 04, Ibl'FtRJ^eFF + fn I?3 
STAT ( U*1 > a< float ( TS rn 710, 
0FF«2FF*9 
L«L*2 

30 continue 


C 

C insert GREEnESS CALCDLiTI-r.'S 
C 


0222 


IGRtDal 

0223 


IGR(2)a2 

0224 


CALL kAUTHIV, ir,R{l», If>P( 

0225 


STAT(L)«X 

0226 


L»L-»1 

0227 


IF(lT.Efi.N0T) r,Ki TO 33 

0226 


IT.lT^l 

0229 


60 Ta 29 

0230 

33 

I»I*1 

0231 

4 

IFU.EO.STSETS) 17 34 

0232 


J»J*l 

0233 


IF(K,EOiSFTSR) T.? 3% 

0234 


K«K*1 

0235 


RJbRj^LFLP 

0236 


G0 Ta 35 

0237 

35 

call CdRE^HBUF.K.FILE) 

0238 


GO Ta 37 

0239 

34 

C^inTINuE 


C 

C OUTPUT XXXXTSTaT file Tt' UlSK 


C 


0240 


0PEN{uNIT»4»TYPt» 
'.)NF0(?MATTfcn« ) 

0241 


4RITE<4) (Cl(I),T*i,469) 

0242 


K»1 

0243 

48 

C0f’TlNUE 

0244 


L*36«('<-1)^1 

0245 


L2«L*35 

0246 


J«K*1 

0247 


WRITE<4) (STATU T ), I l*Lii 2) 


AUCESS="=fc"’ 


|f -.TI Al‘ 


4-6 


PAQE 7 




fk 
024 6 
0249 






/TAiBlOCKS/UR 

|F( K'.6Q. NgCLUS) 


14102119 20«JUL «77 


CB T0 49 


K«K*1 
SB 


46 



49 

Continue 


0222 

02S3 


CL08f(uNira4) 
iPIHDFLi.EQ'il) 601 to 96 


0294 

79 

CONTINUE 


0295 

id 

continue 


0296 


WRITE(6i5n) 


0297 

90 

FORMAT! 'IMOXi 'CAMS I»100 DATA BASE TRANSACTION »EP0RT»//) 

0256 


CALt DaTE(DHYR) 


0259 


MRITE(6i5l) nMVR 


0260 

91 

F0RMaT(5OXi »DATE '.9AD 


0261 


call TIME(HMSEC) 


0262 


WRITE(6i52) HMSEC 


0263 

92 

F0RMaT(5OXi *TImE '.bad 


0264 


WRITE{6,77> 


0265 

77 

F0RMATt* *) 


0266 


NRITE(6i53) 


0267 

93 

F0RMaT( 15X, 'ERIPS CAMS/CAr? INT^RFiCE UPDATE') 


0268 


WRITE(6,77) 

• 

0269 


write (6*54 ) 


0270 

94 

F0RMaT(17X, 'DISK date ,'F ACQU I SI TI ?!NS usp.d 

' ) 

0271 


WRlTE(6i59) 


0272 

59 

F0RMaT( 8X, 'SEGMENT ID CLASSlFICATI'»N QATF 1 DATE 

•» date 4*> 

2 DAT= 3*. 

0273 


WRITE(6,77> 


0274 


HDFL6»1 


0275 


GO T0 47 


0276 

96 

continue 


0277 


write (6, 57) SEGNO.DSKIO.CYR.COY. 




• (ACDATEd. I),ACDATE(2,I). IiI.N’JACG) 


0276 

57 

F0PMAT(inX,IA,3X.l2,6X,I^,lX,l3,6X,4( I 2 . 1 X, I3,?X) ) 


0279 

D 

WRITE{6,77) 
IFa.EO.l) GO TO 47 


0280 

79 

continue 


0281 


WRITE(3'PTR) C2 


0282 


GO To 4? 


0283 

98 

continue 


0264 


DELTA«sEC‘.'DS(TrT 


0285 

99 

formatco'iIOx, 'Elapsed ttmei ’,F 5 ti. 2 x, 'SE c ) 


0286 


R«<»1 


0287 

D 

CALL CDRF.D<lBUr#R|FILE) 
IFd.EQ.l) STOP 


0288 

0289 

— 

CL0SE(UNIT«3) 

CL05e(uNIT*6) 

- • 

0290 


STOP 


0291 

61 

continue 


0292 


FLAGtO 


0293 


call CD«ED{ IBUF.R.FILE) 


0294 


IF(FlLEi6E.2) GO Toi 56 


“629^ 


iri IflUFTl) ,E0, '6' ) 60 TO 61 


0296 


GO T0 47 


0297 

62 

CONTINUE 


0296 


WRITE(6i63) segno, DSK ir 


0299 

63 

F0RMaT(1OX,I4,3X, 12,4X, 'This «;EGMENT not on current 

DISK' ) 
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F0RTRAN IV 

-PLUS V02-04 14102119 :>6-jUL-77 rAGE 6 

BSTAT.FTi^ 


/TP|8lPCKS/W« 

0300 


66 T0 61 

0301 

64 

C0NTpllE 

0302 


WP|TE(6»65) SE6N« 

0303 

65 

F0RMaT(1OX,14,1OX, ‘This SrCHE^r n:*? I*' ri<!K T'tjLE') 

0304 


60 T6 61 

030S 

66 

continue 

0306 


WRItE(6,67) S^Gm^.OSKID 

0307 

67 

F0RMAT(inX, 14,3X, 12.4X, *STaTc M^T L^**DFD- ‘ ^ LLUHtK!; Tm!S*. 



•• SEGMENT') 

0306 


66 T6 6l 

0309 


END 








1C I, 
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4.1 SUBHOOTINE CORED 

HFBRTRAirrviPLUS V02^4 ^14101114 28-JUL-77 


_ CCREOi^fTN ZTRiBlBCkS/MR 

0001 SUBR0UTIN6 CORED(IBUF«R.rKE) 

-OOQg IMPHC I.T_Ll!lIiaf RU*U 


0003 


|NTEqER*2 ISTaT(2)iIPRH(6) 

_JW4i _ 


. - lfiUJVAl.iNCItISTAmUlll- - - - - 

0009 


BYTE IB(2) 

0008 


--L0G1C4L«1 IBUrciJ _ _ - 

0007 


OIMEnSiBN IHDAT(l) 

EflOB 


DIMEnSiBN 1A(37» 

0009 


DATA XDEV/2HXT/ 

0010 


DATA MDEV/2HMT/ 

0011 


RECBrDmR 

0012 


IF(REC0RD.GT.O) 60 T0 10 

0013 


ERCnTsO 

0014 


IF(REcBRD.EO.-I) 60 T« 6 

0015 

12 

continue 

0016 


riLE«0 


0 

WPITE(5i49) 

0017 

49 

formaT(1ox,» type m 0R X fbr tape device cenEV) 

0018 


READ(1,91,ENDb99) IA 

_ 0019 


lE(UCl>«10.'f<M— M T0 11__ - 

0020 


IFnA{t>,BO,»X»l 60 T0 14 

0021 

99 

CONTINUE 

0022 


WRITE(6>97) 

0023 

97 

F0RMaT(1OX.* card error V/) 

0024 


HRITE(6i97) 

0025 


STOP 

0026 

13 

IDEV.mdEV 

0027 


GO TO l9 

0028 

14 

IOEV*XdEV 

0029 

19 

CONTINUE 


D 

WRITE(9i9Q) 

0030 

90 

FORMAT{iqX,« TYPE TAPE UNIT M'NPEP - 0 OR J,».> 

0031 


REAr(1.9l,END«99) lA 

0032 

91 

F0RMaT(37A2) 

0033 


IF(IA(1},EO,«0') 60 TO l6 

0034 


IF(1A(1),E0,»1*) GO TO 19 

0035 


60 TO 99 

00S6 

18- 

IUNT80 

0037 


60 TO 20 

0038 

19 

lUNT«i 

0039 

20 

CONTINUE 

0040 


ILUN.9 

0041 


IDS*0 

004g 


ISR«Q . 

0043 


CALI. ASNLUN(ILUN*IDEVi1UNTiI0S> 

0044 


IFdoS'.LT.O) 60 TO 1 

0049 


CALL GeTADRHPRM, !BUF) 

0046 

6 

CONTINUE 

0047 


call OiO(« 2400, ILUN.1,1 ISTAT, fPPN.ISR) 

0048 


1P(I5P|LT,0) go to 2 _ _ 

0049 


IF(REcORD,EO.*1) 60 TO 11 

0090 


IPRM(2)«3600 

0091 

10 

continue 

0092 


ISW"0 

0093 


RECORD>REC0RD*1 

0054 


call 01 OC*1000iILUN,1,, ISTAT, IPPN.ISW) 


PAGE 1 
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reHTRAN IV-PlUS V0?«04 14103114 ?(J-jUL-77 


CORED 

,FTN 

/TR|Bl8CK$/MR 

0095 


IF<!SW,I.T,0) 0« TB 3 

0096 


CALL WaITFR(I.IDS) 

0097 


IFUDS.LT.O) QP TB 4 


C 

UR1TE(6.101) (I8(1)iIb1i?)iIsTAT(2) 

0098 

101 

F0RMAT(lMO,lOX,2!4,3X,l9,2X,»bYTI*S TPA jSFEBfcn * ) 

0099 


ERC0DEbIR(1) 

0060 


IF(ERC0DE.LT,O) 00 TP 5 

0061 


RETURN 

0062 

1 

CPNTlNyE 

0063 


MRITE(6fl00) IPS 

0064 

100 

F0RMaT{1H ,* ASLUN CALL ’.!6) 

0065 


ST0P 

0066 

2 

C0NT1NuE 

0067 


URITE(6i200) ISR 

0068 

200 

F0RPAT(1H i«REW1ND OSW ■ ••16) 

0069 


ST0P 

0070 

3 

CPNTlMuE 

0071 


WR1Te(6>S00) isw 

0072 

300 

F0RMaT(1H ,» RPaH Q|P ’’Sj » ••16) 

0073 


ST0P 

0074 

4 

CONTINUE 

0075 


WRlTE(6i400) IPS 

0076 

400 

FPRMAT(1H ,» WAIT OSW • S16) 

0077 


ST0P 

0078 

5 

CBNTiNijE 

0079 


1F(F9C0DE,EO,-1O) riLE-FlLf"*) 

0080 


IF(ERC0DE,EO,-1O) PeTURn 

0081 


IF(ePCOOF,NE,-4) G0 T’' 7 

0082 


ERCmTeERCNT*! 

0083 


RETURN 

0084 

11 

CONTINUE 

0089 


WRITE(6,700) 

0086 

700 

F0RmAT(» ’) 

0087 


IFIERCNT.EO.O) PETUPN 

0088 


wR1TE(6,400) FRCNT 

0089 

600 

F0RmAT( »1* ,10X. ' Tape ERPPPS CWCTU'vlTFRPn - *.I‘i 

0090 


RETURN 

0091 

7 

continue 

0092 


WPITE(6i500) ERC'^DE 

0093 

500 

F3.RMAT(lHn, * l/^ STATUS RL^C« EPPPS CBDE* '»16) 

0094 


STOP 

0095 


end 


oaGc 2 
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4.2 SUBROUTINE lOPTOT 


JjJfSRTHAN Iv-fLiiS Jtai-fli. „ _ 31»AU6«77 

IBPRNT.FTN /TRiBl^’CKS/WR 

0001 SuPR<*uTI*' 6 URRMnw^iUlifiRrOOfe) 

0002 Implicit imteq6R(a-2) 

0003 L0OICAI.*! IWO(I) 

r wpiTcri.ior) (Nfi(n.i«i,2»i!^i 

OCOA 100 PM:1A1<1hQi2ISiC10) 

OOCi> ERCengaivoCl) 

OOOe 

0007 End 


PA6E 
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4.2 SUBROUTINE lO^RINT 


A flow chart for this subroutine is not available. 


ORK:i:v.\L p\(',E rs 
OF POOR QUALITY 
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4.3 SUBROUTIWE HEXD 


HfaHTRAN 

HEJtb.FTN 

0001 

0002 

0003 

0004 
JIMS 
0006 
0007 
0003 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 

ooia 

0019 

0020 
0C21 
0C22 

0023 

0024 

0025 

0026 
0027 
0026 
0029 
0C3C 

0031 

0032 
00 33 

0034 

0035 
0336 
0037 
0 036 
0039 
00^0 

0041 

0042 

0043 

0044 

0045 

0046 

0047 


IV-PlUS V02-04 . _ i?|5CLUl4 3 X«aUG»77 2AQ£ 1 

/T^I^Lf'CKS/Kr^ 

SUBR0yrlNE PEXD(b"F,IR) 

implicit INTEGE»(a«^) 

L‘‘GIC4l» 1 ?Ur(l) 

DImEvSI’S ISV‘(16) 

_tr’iCAi=?i.-u:(2i 

DImE\SI<?N IPRI-iTIUS) 

EQU I VALE''C£ C lUiIC(l)) 

DATA 1sVm/1M0*1^*1.1P2*1*^3,1M4,1h5.1'46,1W7,1W8,1H9,IHA,1HB| 

C/.TA laLAMK/l*" / 


K»1 

ixt^i -irii 19.36) 
l>iL« I h‘/36 

I‘(fL.E'j,o) r,ii) T" 13 

D/ 2 lP»l|l9d 

2 IPRInTi lP)sI 5 LANK 

4 iLal.M 

D'' 1 lPsl,.<lC 

IF(>'.'*C{ IP.3) .Fa.li) G“ Ti^ 6 
1F(M?P( IP,3).E'3,2) at* TU 3 
IC(l)aa‘jF(K) 

LsIU /16 

IF(L.l 7 . 0 ) L»-L 

c.’’ Tr b 

3 L*^l5'r.<!'-I.16) 

5 LsL^l 

If ‘• w.LT’i") 

I"Rl ( IP)alSVM(L) 

G- T|,- 1 

6 Ksk*1 

I c’-jTr-ct 

i.;’5lTt:(6f 7) < IPfi I T ( J) , J«1 ,U.5) 

4 

7 Pi«'<i'AT<i;<0,i0»U» 

U'dXtEQ.O) '52 T'/ 15 

10 C"':Tf.;jE 

GO TiJ If' 

■<Lal 
\ J ■ 3 a I X 
I XaO 

r-P 11 iPa^C.lOS 

II IPR!.,T( lP) = lbl.A'i'< 

G'^ T/ fl 

15 C''\T1'^U = 

^RP.TIJP'- 
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4 . 3 SUBROUTINE HEXD 


A flow chart for this subroutine is not available. 


«> 


<p 
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5. CLASSIFICATION AND CLUSTER MAP UPDATE PROGRAM DTERM 

HP0RTRAN IV 

■PLUS 902^04 10119*33 Ol-AUG-77 PAHfc i 

DTERM 

i|PTN 

/TR|Bl9CKS/WR 

0001 


PRSQRAH PTERm 

0002 


implicit INTSGI;K(A*2) 

0003 


include •SYIC300.33CAMSPaRAM.InC* 

0004 

• 

parameter MAXCATt60»MAXSUBa60,MAxC^N«4,NPl v»196,ML1Ni*117i ' A <rL"s5r 


• 

liMAXVilliN08TS«209.CLSKl<’alQ,LSSKIta«lC.MAXACP36.**AXACCs4i 


• 

2N0SPWDs6iN<9DTMOb1O 

0009 


DIMENSI0N RECALL(2.3C) 

0006 


niMENSlRN Ain(30)»ASeG(3?^>, ArfcK{3C). AYR(30). ajUL(30) 

0007 


real sec 

0008 


DATA lUN/10/ 

0009 


SECiSECNDS(O.J) 

0010 


CALL E«RSET(29,,TRUfc., .F^L^fc.# .FalSP,.60) 

0011 


CNTaO 

0012 


filnum«o 

0013 

C 

r 

FILPOSsO 

0014 

\0 

c 

NPIx4«^PIX/4 

0015 

25 

CALL HEAniV<ID,SfrGNtJi--, JULDAT, v'^.fffciF) 

0016 


1F(K^F .EG. 0) (r 300 

0017 


FILP0S«FlLPwSti 

0018 


CALL DSKCHK(SfcGt,<jM.PTK,L':' U L/ 

0019 

(• 

IF(fiaG ,np, 0) f;p T"-(71 .?5)iriAG 

0020 

w 

CALL FCA1NT(SEGN '!-‘,;\PI V4.M I' 

0021 


IFCL^R’R .FO. 1) GP T.' 2-s 

0022 

c 

FlLNLM»FILAiU'>l 

0023 

c 

AIP(F1LM:M)*I0 

0024 


ASEGfFlL''UM)aSFu- L*' 

0025 


ADSk«FIL''U^}si3CkUi 

0026 


AVR(F IL^"H)sYH 

0027 

c 

r 

AjULf FlL'UW)=J iL'^Al 

0026 

V 

c 

80 

C 

CALL DlR!'PP( , jbUriAT, lC ,PT'-< ^ 

0029 

C 

CALL MAPUPOdP) 

0030 


CALL fade 

0031 

C 

r ,2 25 

0032 

c 

210 

IFIS^TCh ,EQ,2) •Ad '^T' 

0033 


CnTiCnT^i 

0034 


PECaLL‘1»CNT)«F1lP>''S 

0035 


recall <2. CNTjanS" T’ 

0036 

C 

r 

G0 T!" 25 

0037 

C 

300 

IFtC'-'T .FQ, 0) G‘ T' ’ •L-.’i- ja-J --- > ITh jji >S ' T,-r 

0038 


CALL S'v’'RTKC(oerALL.CVT) 




rSRmN IV-RlUS V02«04 lOU^tSS 01-4MG-77 

PTEBM.rT N iftftiaLMKS/Mft 


oaGE 2 


0039 


TYPE 305 

0040 

309 

F0RMAT<1HO.*THE F0LL0WING IS A LIST ?IF SEGMENTS 
• • DISK NUMBERS THAT WERE NPT PR0CESSEDIM 

0041 


TYPE 310* ( (RECALL! I «J)iU1«2')iJ*1>CNT) 

0042 

310 

C.._ 

F0RHAT<1HOi(1X«2I9)) 

0043 

W 

c 

400 

CALL REP0RT(AlO*ASE6.AnSK|AYR«AJULiFILMUM«SEC) 

0044 


END 
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5.1 SUBROUTINE DIRUPD ' 


t 

. _ 



tr- 

P0RTRAN 

IVaPLUS V02«04 10119143 0X«AUG»77 PACE 4 


1 1 w*ri 

yrRifii 0CKS/UR 

f: 

0001 


SURRPuTImE DIRUPntVR. JULDATi lO.PTR) 


MQ2 


IKPUE IT INTEGER (A-2) 

'i- 

0003 


C0MMRN /CATNAM/ CATNAM( 61 ) 


0004 


. . IGOtCAUl D-1RL0GC512J 


' 0005 


DIPE'^Sl0^ DIREC(256) 


QQfl& 


EOUfWALEWCE(ntREr.BlRLaQi 


0007 


0PENi(UNIT«7,\AME«»t3OOi3OO3Dl«»PlLE,OATllSTYPE«'0LD'i 



c 

-t^_lCfiESSIlDIRECT*.9EC0ROSl2eil28iMAX9EC«2OO.ASS0ClATEVARlA-»LP« 'D 


0000 

w 

XING ( 7 *PTR) 

■(- 

0009 

c 

READ(7'PTR> direc 


0010 


K«0 


0011 


D0 50 l>52ill2 


0012 


KaK^l 


0013 

50 

CATNAH(K)sblRECn) 


0014 


60 T»(160i170). IB 


0015 

l6n 

DlReCt4l)»YR 


0016 


0IREC(42)sJULDAT 


0017 


G0 T? 160 


0018 

170 

0I»EC(45)»YR 


0019 


D10EC{46)»JULDAT 


0020 

160 

uritE(7«ptr) direc 


0021 


CLPSE(UmT«7.DISP0SE«'SAVE') 


0022 


RETURN 


0023 


END 



5.1 SDBROUTINE DIRUPD 

'SuLOf^r- » S'uLz^/vl pAte 

XEr> *- JH>£tJLFxCA'TT9tJ £>A-V9- 

i- C.Lf^XF^CAT:ratiJ 
2=- CLU2,n£^ 

P'tR. ' f^oztjrgm ’T'o ^^c^<■r ieecogj^ «a/ jaj-iC(asT«^y /=UBi£‘ 












5.2 8UBR0UTIME MAPPPpI ! 


FORTRAN IV.PLUS VQ2.04 


10119140 0^«AJ8*77 


PAQE 6 


0001 
0002 

0003 

0004 t 

• 

. . ..f 


c 

c 

c 


subroutine HAPUPD(IO) 

IHPUCIT lNTEOiR(A»2l 

Include •8yic3oo.39cahsparam.inc* 

PARAMfTBP HAXCATf6fl4MAXSUB«0P|MAXCHN«4iNPlXBl96iNLlN*ll7»»«AXrLf’tSC 
liMAXV«lliNR0TS«2O9.OLSKlPslO.DSSKIPBlO.MAXACn>6|MAXACC«4f 
gN flSRHn«A.Ngl DTWD«10 . _ _ 




0005 


LSOlCAl.*! TREC( 144 .HAXSU' 1 )iO*TA(NPIX) 

0006 


I.SOICaL*! rani ( 938 ).O 0 TCAT(Nn 0 TS)»D 0 TCLUJNP 0 TS) 

JL 007 . 

. - 

. . c 2 iayAL&MCE (C 2 Hi(S 21 l 4 O?TCAT) 4 (C 0 Ml( 7 Sa)«CaTCLU) 

0008 


IATa LUN-'IO/ 

0009 

V 

r.aO 

0010 


READ( 4 > C 0 M 1 J read INT 0 CO**! FR 0 M TSTAT 

0011 


KNTaO 

0012 


D 0 5 191 .MAXSUS 

0013 


READ( 4 >END«e) (TREC( Ji I). J bI. 144 ) 

0014 


KNTfKNTai 

0015 

5 

C 0 NTINUE 

0016 

8 

00 15 C DL bIiNLIn 

0017 


CALL LINER 0 (DATA,DU 

0018 


00 Tt' < 10 i 40 ),IO 

0019 

10 

CALL CLASS(NPlX.nATA) 

0020 


write ( 9 *DU data IUP-^atE TCLaS.DAT 

0021 


IF( 1 M 0 D(DLiDLSKIP) ,nE, ’) O’- Te 150 

0022 


00 30 jBOSSKIP.NPIX.nsSKtP 

0023 


K|K «1 

0024 


D 0 TCA 7 .(KJtDATA(Jl 

0025 


1 F(D 0 TCAT(K) ,E 0 . 0 ) DHTCAT(rf )»-3 

0026 

30 

C 0 NTINUE 

0027 


Q 0 TP 150 

0028 

40 

CALL CUUSTRIMPIX.DATA) 

0029 


WRITE JS'DL) DATA |UP'“ATfc TCL'iS.DAT 

0030 


irilHaD(DL.DLSKlP) .'lE, C) 6 ? Te 150 

0031 


*30 80 J*nSSKIP|NPlX,DSSKtP 

0032 


KbK^I 

0033 


D 0 TCLU<K)BnATA(J) 

0034 

80 

C 0 *'TI,mI<E 

0035 

150 

continue 

0036 


PEWIf'D 4 

0037 


write ( 4 ) C 0 M 1 

0038 


D 0 160 iBl.KNT 

0039 


WRITE( 4 ) (TREC(J.I)»JBlil 44 ) 

0040 

160 

continue 

0041 


END PILE 4 

0042 


. -RETURN _ 

0043 


END 
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5.2 SOBROUTIME MAPUPfl ^ 

ID •• OF MTA- 

-i- CiA^S^FrCArJ‘0fJ OAtA 

ClUs>tb^ D^r4 







^ 5.3 SUBROUTINE CLASS { 

FBBTRAN 1V*PLUS V02.O4 1011919? ??1-AU6»7? *A0E 6 

PTBBM.FTN /TRlBlECKS/WB — 


0001 

0002 

0003 

0004 
0009 

flflflA 

■ - - 

SURRBuTtMS CLASS(NRlXiDATA) 
iMPilCir INTEOCRtAali - 
C0MH0N /CATNAM/CATNAHUI) 

LSaitAl#! DATACNPUi- 

OIHENSI0N P0S(4).LABEi.(4) 

niTA 1 ABPL/2Hlil .9M« .2MX ,2Mv / 

0007 

C . 

data P0S/239,2O7.79,143/ 

0008 

c 

LlHlTpO 

0009 


00 l50 U-liNPlX 

nfl< n 


TCHPtpATAtl ) - 

0011 


TB»«P«lANn(T6Mp,'*377) 

0012 


IF(TEmP ,QT, 0) GK T? 19 

0013 


oata<l>»p 

0014 


Q0 t:' 190 

0019 

19 

00 40 J«1|4 

0014 


ifitEmP .ne. ppisfjn ra 

0017 


LASiLaBEK J) 

0016 


60 T'* 80 

0019 

40 

Ca^TI^UE 

0020 


nATA(L>*0 

0021 


30 T? 190 

0022 

80 

00 100 J«1.60 . 

0023 


IFCLAB OATKAPC J) )G0 T:’ 1/0 

0024 


DaTa(L>*J 

0029 


60 T0 190 

.0026. 

100 

CaNTlNl'E 

0027 


OATa<L>"0 

0028 


print IIP, lap ... - 

0029 

~ iiF” 

F0BmAT*1MOi 'THE rATNAH TaBLE 2PE5 »10T Caf TAp' tmf»i 

• » P0LLBWINO LAPEL * i A2, / , IX. • TMt:?Er0PE T^E CLASSiHCaT I / ' • , 

• * map C0MTAI--IS A THPPSM0LD VALUE F0R THIS IAPEL'J 

0030 


LIMiT*LIh1T*1 

0031 


1F(lIv1T ,LE, U'r.) G/ T0 190 

. 0032 


PRlSiT 120 

0033 

120 

raPMATdwC, ' A LI'IT PF lOO L!AGNeSTIC5 '» 
• 'MAS BEE^' reached— PU*J aBPPTEDM 

0034 


STPP •riAGN0' 

0039 

190 

C0NT1NUE 

0036 


PETuP^ 

0037 


EmD ... . — 
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5.3 SUBROUTINE CLASS 


A flow chart for this subroutine is not available. 


5.4 SUBROUTINE CLU8TR I 


rSRTRAN 1 V«PlUS V0I«04 10120104 0l«AUQ«77 PAGE 10 

JiisfuMti miflucKS/na .. . 


0001 


subroutine CLUSTR(NPIX.DaTA) 

0002 


INRlICIT 1NTE0ER(A«2) 

0003 


CSMMeN LP0KUP(239) 

0004 


LBSICaL*! DATAfNPlX).U00KlP 

0005 

C - 

data C0UNTtTlMES/O.O/ 

0006 

C 

50 LaiiNPlX 

0007 


TEHPI«DATA(L> 

0008 


TEM. ill AMD (TEMPI, "377) 

0009 


irtTEwPl ,GT, 0 *.A»’D. tempi ,UT, 240)GP 25 

MIO 


.JUJAlUaO . .. 

0011 


S0 TP 50 

0012 

25 

DATa(L>"L0PKUP(TE^P1)-*1 

0013 


IFJDATACL) ,LT, 0) U*TA(l)«0 

0014 


IF(TEmP1 .EQ. 15)60 T8 50 

0015 


IF(D*T*(L) .EQ.O) CauNT»fi0fJNT»l 

.0016 

50 

. CENTihiUE 

0017 


TIMeS«T1mE8*1 

0018 


IF(TImES ,LT, 117)PETU«M 

0019 


1FCC*UNT ,NE. 0)PR!NT 1Oc,C0^iNT 

0020 


C0)JmT|O 

0021 

100 

F0PmAT(1HO, ••WARMING* THPRE vtRE*,I4,' CPDFS M'»T REC*'3‘U ?fen ♦ 

0022 


TJMgS^O 

0023 


RETURN 

0024 


END 
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5.4 SUBROUTINE CLUSTR 


A flow chart for this subroutine is not available 




5.5 8UBR0UTINB PMAINT — 


JSgTRAN IV.PLUS V02.04 10120109 ol«AUQ*77 PA66 12 

■■a.TIRH,FUa /TRiBlOCKS/MR 

0001 subroutine rMAINT(SESNUM,NPIxA|NLlN(ERR0R) 

-0M2- IMELICU INTEQBRCAUJ 

0003 DIHENSI0N TCLUNM(15)«TCL«NM(i9)iSEQNAM(2)«TSTAT(i9) 

0004 OAU_lSTAT/2HOfl*2H2t,2Ht34 2W004.2K*3j.2H0042H3Xi2HjtXi2HXT4 2HST. 

• 2HAT«2H.Df2HAT,2Nil.O/ 

-Ofliia data TCLUNM/2Hna.2».*l.2Hr3.2Mdfl.RH.3.2Hfl0. gH3X.2HXX.2HXT.2MCL. 

• 2HtlS.2H,H,2HAp.2mi.O/ 

0006 Om.t£LANH/2HDB.2H2li2tl£3i2HOO«^H«3.2HOC«2H]X<2HXX«2HXTi2»!CLi 

• 2HAS.2H,M,2HaP,2mI1«0/ 

C 

0007 ERRbRiO 

c ^ 

0008 CALL 2NAME(SEQNUM|SEGNAM) 

0009 OALL 5UBSTP ( SEQNAM. 1« 4 . TCLUNKj 14,4) 

0010 CALL $UB$TR(SEQNAM.1,4.TcLAKm,i4,4) 

OOU CALL SUBSTR(SEBNAM,1.4.TsTAT,14,4} 

0012 0PEN < uN1T*4, NAME«TSTAT, Type* • 8LD • • ACCESS* ' sequential * , 

1 pRRil50.rflRM«tUMrPR.^ATTfcD« ) __ 

0013 0pen ( uN I t*8,name*tclunm, type* 'UNKNOWN* .access* 'Direct » » 

• REC8ROSIZE*NPIX4,ERR*150.NAXREC*NLIN.ASSPCIATEVAR1A8lE*V?) 

0014 RPEN < UNI T*9,NAME*TCLANH,TYPFi' UNKNOWN f . access* 'DIRECT ' . 

• RBC0PpSl?E*NPIX4,ERR*15O.MAXsEC*NLIN,ASSPCIATEVARlAbLE*V?) 

0015 return 

MiO ENTRV FAlJJi 

0017 CL»SE{UnIT*4,DISP8SE*»SAwE') 

0018 CL0SE(UMT*6.OISP0SE*'SA\<E« ) 

0019 CL0SE<UnIT*9,DISB0SE*'SAwE' ) 

0020 return 

0021 150 ERR^Rsl 

0 022 return 

0023 End 


5.5 80BR00TINE FHMNT 


I, 

! 

- SeG'inBiJr A/Un^BCft 

‘ /Jb/nes/f »p otrsct A cc^i 

bLrtJ " b^mBek of LxiJe^ 







page 


5.6 SUBROOTIME 80RTRC { 

P0RTRAN !V»PLU8 V02»04 I0l20ll4 0l-AUQ*77 

JUEHiUfJil 7-Ulfl4J0£KS/Wl- - - -- 


0001 


SUBR0UT I NE S0RTRC ( A 1 1 TENS ) 

0002 


IMPLICIT INTEQBR U-2) 

0003 


DIHENS10M TEMP(2)|A(2»!TFHS) 

0004 


MiITEmS 

0005 

1 

MiM/2 

J)G06. 


0JQ8 T0 10 

0CC7 


KbITEmS-m 

0008 


jBl 

0009 

2 

IBJ 

0010 

3 

IMPMM 

0011 


IF(A(2in-A(2.lH)) 4.4,5 

.0012 

5 

.CALL .SUBSTR(A(l,I).1.4ilEMPi 

0013 


CALL SUBSTR(A(1.IM),1,4. Ad, 

0014 


CALL SUBSTR(TEHP.l,4•Ad.I^*) 

0015 


Ilt-M 

0016 


1F(I .6E, 1) Q0 T0 3 

0017 

4 

JBJ«1 

0018 


IF{J_6T. K) G0 T8 1 

0019 


60 T0 2 

0020 

10 

return 

0021 


End 
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5.6 SUBROUTINE SORTRC 

A flow chart for this subroutine is not available. 
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0014 TYPE 70 

0015 70 F0PmAT(1HOi 'ANALYST ABWHtEC oLiN.) 

0016 ST0P 'ABPRT* 

0017 ENO 


5.7 SUBROUTINE OPMSSS 


A flow chart for this subroutine is not available. 






^ 5.8 SOBROUTIME JULIAN 

F08TRAN !V»PLU8 V02«04 10120122 f4-AUQ-77 P*8E 1® 

JllEfttUfTN ./MiBLMKS^R - - 


0001 


PUNCTtON JULUN(M0 .DAYiYR) 

0002 


integer TOTALiOAYiYR 

0003 


DIHEN8I0N MDAYS(12) 

0004 


data mDA.YS/31«0(S1*3Q»31.3Di31>31i30«31.30i31/ 

0005 


HDAYS(2)t28 

JlflQB 


l£llHalliYR4i) HL.'<DXY&L2JJ29- . 

0007 


T0TaL«O 

0008 


LENiMfl*! 

0009 


ir(LRN>10«l0*20 

0010 

10 

juuan«day 

0011 


RETuP^ 

mz 

20 

JIB. 30 J41.LE.N 

0013 


T8TAL«T0TAL^MDAY?m 

0014 

30 

continue 

0015 


JULIAN*T8TAL*DAY 

0016 


RETURN 

0017 


END 
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5.8 SUBROUTINE JULIAN 


A flow chart for this subroutine is not available. 






5.9 sobroothie headin 


i 

4 ► 


L. 


P0RTRAN IV, 

JUfiHH.rTts . 
0001 
0002 

0003 

0004 t 


PLUS V02»04 

■/JfijBLgCKS/HR 


10120129 


pl«i4UG»77 
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-t- 


0005 


0006 

0007 

0008 
-JUUI9. 

0010 

0011 


0012 


C 

c 

c 

c 

c 

c 

c 

c 

c 


0013 

0014 

0015 

0016 
0017 
.0010 . 

0019 

0020 
0021 
0022 
0023 

J1024_. 

0025 

0026 
0027 


20 


C 

c 

_c_ 


0028 

0029 

0030 

0032 

0033 

0034 


C 

c 


0035 

0018.. 


0037 

0038 


SUBRBuTINE HEAniM(lO«SGGVU^»jULOATtYP|E0r) 
implicit 1NTEGER(A«2) 

Include 'Svicgoo.sicamsparah.inc 

parameter MAXCATt6?iMAXSUB»60i.MAXCHNf4*NPIX*l96iNLIN«ll7iMA)iFi.?»50 
liMAXVBlifNO0T8B2n9.rLSKlPilO,DSSKlPBlO.MAXACna6»MAxACCB4i 


C0HM8N /HC0M/ SS,SEiLSiLP»NPPDS»NDSPR»MCPR,LPpr,|NCL,NC. 
D0i«NCAR,SVD.RSIZiPSKIP,HSI2.CALPiCERR 

C0MM0N /I0LP/ 10. LP tTwESE TW0 C«mmsi'S aRE TEl K^lL**; 

LOGICAL*! BUPL0G(3O72}<DaTA(‘ P lX)iPlLNAM( 33 }.HEADER( 3060), TEMP 
dimension HEaOWD(153C) 

Valence (HPAD feR ^MEADimj 


data LUN/io/,rii/i/ir0RMAT/i/iShra/i/,rN/o/»Rwn/o/ 
data mTXTFG/I/.U’iIT/I/ 

^lUX I 0*FIl.tS 11 1 l*F;-MtlGN 


FflRMATBi 


SMFQ*1 


1 l»UNt)/EHSAi FERMAT . 

I l*ni9 NFT Save mEaceR 


LP«6 


10*5 

iniD ,£Q, -9)Ff.«0 

CALL DSETILUN.Fii iFILE.MTXTFn.UK lT,r‘',RwD 

CALL HREADILUNihEADERiRUPLfiG.iOTSiFOPMATif ll,PRTv,E0r,SMrG) 

FN*1 


RMDi2. 


IFICErR ,NE, 0) STOP 'GERR* 
IF(E0F «EQ. 0) RETURN 
TEMP>hEADER( 67) 
HEADER(67)*NEAnER(66) 
HEADER(68)*TEMP 


IDbhEaDER(53) 
I0*IA\D(IDi"377> 
ID*'iD«240 


10*11 Classification nap 

*21 REGULAR CLUSTER MA P 


*3i Conditional map 


IF(ID .EO. 3) GO T0 20 
M0*hEaDER(62) 

DAy*MEADER(61) 

Yfl*NEA D ER<6 3) 

JULOAT*JULIAN(H0.DAY.YR) 

CALL FPIND<LUN,1,1,NPIX,NL1^.P0R‘1AT,0UFL!’!O,3O72> 
flETuRN 


entry LINERD(DATA,DL) 

P STY *0 . . 

CALL LRBEO<LUN,DATA,BUFL«O,3''72,DL.Fll,P9tY,E0F,F0RMAT,l ) 
IF(E0F iNE, 0) return 


5-21 




page 21 


0039 

ilOOO- 


0041 

Md2 


TVP| 200 


! I ®*I^,/®S2_I*!6*»^»iX»*i'N^6C9VEPA8LB C0NBITI0N', 
• l»»#ftuN ABORTIAM 
STOP *L!WBRR» 

BitD 



5.9 SUBROUTINE HEADIM 


► 

► U XPSt)sP<lMrXof>i du* £>/^/?9 

j i C£./^ssxAjrc^r<r»A/ 

& - e^^j^nr0/N/^ Ciu^rg^ 

^eC,MatOT- tJuivsgg^ 

\ 

ZuLbAT ' 6uLzaJ J>AT£i 

its, ' ie/Q’S 

B.ot^ ' OP FJiiS 





5.10 aPBROOTINK KEPORT j 

rORTAAN !V.RlUS VQS.OA 10120132 0l«AUO«77 RAGE 24 


oTgftM.rTw /TWiBUCKS/WR - 

0001 Subroutine RBR0RT(AiDiASS6iAnSK,ArR.AjUL«nLNuM.n) 

am .. -IRPLICIT 1NT10IR(A«2) 

0003 OINENSIIN AlD(30)iASEQ(3n)iAnSK(30)(AYR(30)»AjUU30) 

0004 U1UCaL« 1 lDATB(9)«lTlMEiS) 

C 

C 

c 

0005 CALL OATE(tOATE) 

0006 CALL rlNfUTlNF) 

0007 PRInV 5 

0000 5 rORHArdMOiSOXi 'CAi^S t-mo OaTa rase TRAf.'SACTI?iN REPc'RTM 

PfllNl lfl>lBAI£aUJME 

0010 10 FORHArdHOilOOX, 'DATE S 9Ai, /• lOlX. • TI VE 'lOAl) 

0011 print is 

0012 IS F0RMATdMO,35X, ‘BRIPS DTPRn INTERFACE IJPnATE'i* / *<Ay 77*) 

0013 print 17 

0014 17 F0RhAT( 1MO,46X, ••^ISK’.SX.T'ATfe gF ERIP8*) 

aai5 paiNi. 10 

0016 18 F0RMAr(SSX.«SEQHENT«.6X|*in<.6x, 


• 'PROCESSING’. 8X, *f*AP TVPP<) 
C 
C 
C 


0017 00 iQfl J « 


0016 


06 T0 (50.70)*Aln(J) 

0019 

90 

print 60.ASE6(J).AOSK(J).AVR(.^)«AJUL(J) 

0020 

60 

F0RMAT d6X,M, AX, 12. «X, ir, IX, I 3, AX, ’CLASSIFICATI ON' ) 

0021 


00 TP 100 

0022 

70 

PRINT es, ASEG( J).ADSK(J).AYR(«),AJUL(J) 

mi- 

_.65 

F6RmAT(36X.14.AX.12.AX, 17.1X, l3.eX. ’CLUSTER' ) 

0024 

100 

c 

CONTINUE 

0025 

w 

C 

CALL nUSETdO,l,1) 

_mA_ 


PRINT iia 

0027 

110 

F0RmAT<1»A1> 

0026 


ST2P 'ALL OK’ 

0029 


End 
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5.11 DATA LOOKOP \ 


PIRTRAN IV.PLUS VQ2-04 10120136 OUAUG-77 

nTBBH,FTN /I.!UaLafiKS/t>R 


PAGE 26 


0001 

0002 

0003 

0004 


0005 


BL0CK Data 

CfMMON L00KUP(239) 

L0Q1CaL*1 100KUP 

data L00KUP/l<S2«O.3O«O(23«O«O,9.Q«SSt44<16*Oi5l«37i2jie*g(3l.O. 

• 24|0»45.1D»0.59i0.l7.0iS2«38,3«ie*Oi32iO,?5iO«4A,u, 

t OfAD . 39. 16.0.53.0*4 6, 0.47.12.0*61, 40^15 *0,54. 

• 33.5. 20*0. 27.0*46. 13, 0(0*41,20. 0.55.34. 6. 20*0. 28. !.49. 

t 14, 0. 0. 42, 21. 0.56, 35, 7, 20«0*29. 0.50, 15. 0.57.43.22.^.0. 

• 36 .6/ 
end 


■%> 


5.11 DATA LOOKUP 

A flow chart for this subroutine is not available. 
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' 5.12 SUBROOTINE 2NAME \ 

P0RTRAN IV«PLUS VQ2.04 l0l20|37 f)l»AU6-77 PAGg 28 




QOfll SUfiftBuUNB iNAMEtS£fi?!UiM4SEQI*AM) 

0002 implicit |NTEQgR(A«Z) 

Moa PI mens! BM SEGNAM(EJ^AMEX27 

'0004 L06ICaL«1 CHAR(4) 


unna 


0006 

MOT-, 

OOOS 

0009 

0010 
0011 

-20 

ENe0PE(4.2O«CHAR) SE6NUM 
PEfiliATUA) 

IPCSEqNUM ,6E, 1000) 6i3 TB 6n 
OB 50 Jil*3 

inCMAR(J) iNE, * ♦ > QB TP 60 
CUAR(J)««0> 


0012 

50 

CONTINUE 


0013 

60 

SEGNAMlDfNAMEm 


0014 


SEGnAk(2)«NAME(2) 


0015 


return 


0016 


END 






5.12 SUBROUTINE ZNAME 

A flow chart for this subroutine is not available. 
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6. SEGMENT DELETE PROGRAM SEGDEL 


HF0RTRAN IVPLUS V02«q4 
S660EL«FTN /TR|RL0CKS/WR 


1OI3H0O Qt«JUi,«77 


RARE 1 


SEQNe^iT OEUETE 


0001 
0002 
0003 • 


IMPLICIT INTEGER (A»W) 

include 'SV|C30Q.33CAMSPARam.InC» 

parameter MAXCATa60|MAXSUeaA0|HAxCHNa4tNPIX«l96fNLIN"ll7|MAXFLn>90 
l(MAXVcliiNO0TSa2O9*DLSKtPilOiDSSKIP«lO|MAXACO«6«MAXACCa4| 
2NeSPWD«6iN0DTND«lO 

DIMENSION A(4),SEQN0(2),riLNAH(19).nLTVP(2S}*KPATOl<2|2OO) 
dimension purr2<256).0upr3(2) 
logical*! NAMriL(3C).8Urri{9t2)iKEN(30) 
equivalence (FlLNAHCD.NAHriLdM 
equivalence (BurFKDieuFFadn 

real X1.X2.X3 

data riLTYP/2H0A,2HTM,2HAP,2MPCi2NLA|2HST,2HCL»2HAS.2HPCi2HLU, 

* 2HST.2HCL.2HUS,2MPS,2HTA,2HTTi2HSTi2MAT.2HDD,2M0T|2HSF#2HIB, 

« 2HLOi2M00.2HDK/ 

data rlLNAH/2H0B«2H2|.2HC3.2M09»2N.3|2H00.2H3 .2H .2H »2H . 

• 2H .2M.0,2HAT.2h|1,0/ 

100 r0RMAT<lMl.4OX|«CAMS 1*100 DATA BasE TRANSACTION REPORT* I 

101 F0RNAT<iMO,1O3X,*DaTF M2.'/',t2.'/'.I2) 

102 F0RMAT<iHO,1O3X, »TIME »|4A2) 

103 r0RMAT(lMO,4X. 'SEGMENT NUMRER * *»2A2) 

104 F0PMAT<1HO.4X, 'DISK PACK NUMBER • *»I4) 

109 FBRMATdMO, »WR0NO DISK PACK MBuNTEO*) 

106 F0RMAT(iWS, ' INPUT SEGMENT NUMBER >M 
lOT F0 RmAt<2A2» 

lOP F0 RMAT<iHO, ‘SEGMENT NUMBER NOT ON DATA BASE‘> 

109 F0RMAT<12» 
llfl r0«MAT(2l4) 

111 r0RMAT(iHO,4X, 'TOTAL elapsed TfME « ‘ . I2i ' I • , 12. • t « « 12) 

112 F0RMAT<iWO,44X, ‘SEGMENT OELETE/VEmsION MAY 3l.l977‘) 

113 F0RMAT<lMO,47X,‘PlLE*.9X.‘nLE'»4X.‘FlLE NOT') 

114 F0RMAt<1HO,47X, ‘NAmE'.BXi 'mELEtED* ,2X, 'DELETED* ) 

115 F0RMAT<1HO,44X,13A1,5X. *XM 

116 r0RMAT(lMO,44X,l3Al,l4X, 'X' ) 

117 F0RMAT{iHO,1X.I4,I2.4I3,2I3,1X,1OA1.1X,17I3) 

118 F0RMAT |I3) 

119 format (14) 

I2f> roPMATdwS. 'KEVIN T/ ID)Ei.ETE ANOTHER SEGMENT >♦> 

I2l F0 RmAt(3OA1> 

12? FORMATdHO. 'PLEASE MOUNT DISK PACK NO, »,I4) 

123 FORwATdHS, 'DO YOU KISH TO (C>0NTINUE? >») 

CALL aSSIGN(6.*LPP) 

CALL ebrsbti 29,, TRUE,., False. I, TRUE,,, False,, 00) 
n*i 

CALL ELAPSE(I1,IhR.1M]N,TSEC) 

X1*SECN0S(P,> 

1 TYPE 106 

ACCEPT 107, SEGNO 

DEC0DE(4, 119, SEGNO) SEGNA 

CALL DSkCHK ( SEGNA, PTR,DSK ID, FLAG) 

IFIFLAG .EO. 1) 60 TO 301 
1F(FLa6 ,E0, 2) 60 TO 302 


6-1 


10131120 0)«JUL*77 
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P0RTPAN !V 
SEQOELifTN 

0047 

0048 

0049 

0090 

0091 
9392 

0093 

0094 
0899 

0096 

0097 
0090 
0099 
0060 

0061 

0062 

0063 

0064 
0069 
0066 

0067 

C 

0068 

0069 

0070 

c 

0071 

0072 

0073 

C 

0074 

0075 

0076 

C 

0077 

0078 

0079 

c 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0007 

0008 

0089 

0090 


1 * JiK 

<A(P).Pfl«4) 

(SEQN5(P).P9l.2) 

OSKIO 


•Plus vo2«04 

/TP|8l0CKS/WR 
CALL IOaTEMiJiK) 

CALL TIm6(A) 

URITG(6.^00) 

WR!TE(6,101) 

WRITE(6.102) 

URITE(6.103) 

URtTE(6.104) 

WRITE<6.112) 

WRITE (6i113) 

WRITE <6tll4) 

inOSKlD .GE, 1000) CALL SUBSTR(FILTYP|49«2iriLNAM|li2) 

RECTVP*i 

L«3 

8PEN(UNlTt3|NAMEa*DBOlC300.30090SKTBLiOATt,AeCE$SB«DlRECT*« 

• TYPE*'BLn',HAXREC*liPEC0POSl26i2OO) 
0PEN(UNlTi4,MAMEi*SYOiC3OO.3OO3OtRriLE,DAT'itYPE««0LD'. 

• maXrEC* 200« ACCESS* • DIRECT ••REC0RDSlEEai28) 

FIND (4«PTR) 

READ <4iPTR) BUFF2 
N0ACQ«RuFFi(4) 

CALL SU0STR<FIlTvP,1,3iFILWAMi24,3) 

CALL SUBSTR(SEQNP,1|4.P1LNAH|14i4) 

5 G0 T0 (l0.20i30|40.90«60i70|80*90,500)(ReCTYP 
SEGNe^DDOrS.DAT 

10 CALL SUBSTR(riLTYP.37«5|FlLNAM«18i5) 

0PEN( uNIT>i,mamEiF ILNAM i TYPES •0LDt|MAXRECBNO0TSi 

• ACCESSs 'DIRECT* I REC0RDSI2Gal3*ERRB2O5) 

G0 TP 200 

SEQN2«fIELDiDAT 

20 CALL SUBSTQ(FILTYP.42,9,FIlNAM,18»5) 

0PEN(UNiT.i,NAME«FILNAP|TYPE»'0LO*.RAXREC*MAXFLOi 

• ACCESSi* SEQUENT I AL'iF0RMst unformatted* I ERRP205) 

60 re 2 oo 

SEGN0^PSTaT,DAT 

30 CALL SUBSTR(FILTYP.27,5|F1lNAM,18*5) 

open { UNI T«1,NAME*F!LNAM, TYPE** OLD *.MAXRECsMAXCAT» 

• ACCEsSs* sequent I AL*. FORMS •unformatted* I ERR«209) 

G0 TP 200 

SEGW0-TSTAT.DAT 

40 CALL SUpSTP(FILTYP,32,5,FlLNAM,18,5) 

open (UNITs1,NAMEsF ILNAM, TYPE* *PLD*.MAXRECsMAXCATi 

• ACCEsSs* SEQ uENTI AL'.FBRMs* unformatted* |BRR*205) 

60 TP 200 

segnb-imarery.dat 

90 D0 91 Ksl«N0ACO 

ENC0DE(2ilO9<6UFF3) BUFFBCl) 

CALL SUBSTR(BUFF3i1i2.FILNAMi18i2) 

ENC8DE(3#118,BUFF3) BUFF2(L*1) 

CALL SUBSTP(BUFF3,l,3,FlLNAMi2Ci3} 

IF(BUFF2(L*1) .LE, 9) CALL SuBSTR(riLTYPi47i2iFlLNAM,20i2) 

IF(BUFF2<L*1) ,LE, 99) CALL SltBSTR<FlLTYP,47,l#PlLNAM,20|l) 
L»L*2 

0PEN(UNiTs1,NAMEsFILNaM,TYPE**PLD*iMAXRECsNL|Ni 
s ACCESSs 'SEQUENT I AL '• FORMS' unformatted* I ERR*209) 
WR1TE(6.119)(NAMF|L(P)iP*14|26) 

CLPSE ( uNim^OlSPPSEa* delete *.ERRs209) 
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P0RTRAN IV.PLUS V02.04 lOlSlISO 0|»JUL«77 

SSaOEtiPTN /TR|BlPCKS/NQ 

0091 91 COMTINUE 

0092 60 T9 201 

C 8EQN0«pCLAS.MAP 

0093 60 CALL SUBSTR(riLTyp.4,3*PlLMAM,24|S) 

0094 CALL SUB5TR(P1LTVP.7.9iP!LNAMi16|9) 

0099 0PeN(UNlTBl,NAMEaPILNAHtTVPEB'KLO'.HAXRECaNL!N« 

• ACCESSi*DIRECT*.REC0RDStZE«49,ERR«2O9) 

0096 G0 T0 200 

C SE6N0»tCLAS,MAP 

0097 70 CALL SUbSTR(FILTYP.12,9iPIlNAM.16.9) 

0098 eiPEN(UNlTal«NAMEanLNAM,rVPE«'PLOSMAXREeaNLINi 
a ACCESSa'OIRECT*.RPC0RDSIZpa49.ERRa2O9) 

0099 60 TO 200 

C SEGM0-PCluS,MAP 

0100 80 CALL SUBSTR(riLryp.l7i5iriLNAM,18|9) 

0101 RPEN(U'^lTsi»MAME«nLNAM,TyPEa*PLO'«HAXREe«NLtN( 
a ACCEsSa'OIRECTt,F<BC0RDSIZPB49,ERRa2O5) 

0102 60 TO 200 

C SE6IV0»TCLUS,hAP 

0103 90 CALL SUBSTP(FlLTVp.22.5|PlL'^AH,l8.5) 

0104 0PEN(uMl7al,MAMEBFILNAM|TYPEa'OLD*.MAXRECaNLtNi 
a ACCEsSa'DIRECT'.RFCPRnStZPa49,ERRa209) 

0109 60 TO 200 

0106 900 READ(3'1)KPAT01 

0107 D0 502 Jal,200 

0108 if(segna ,eo. kpatokiiJ)) 60 re so3 

0109 502 continue 

0110 503 KPAT0i(l,J)8 *9 

0111 KPAT0l(2,JJan 

0112 WRlTE(3il) KPATOI 

0113 D0 50l B*1.296 

0114 BUFF2(R)*0 

0115 501 continue 

0116 WRITF{4iPTP> BUFF2 

0117 CL!^SF(UNlTa4iDISP0SEa«SAVEO 

0118 CL(<SE(UNlTaS«DISP0Ska'SAVkO 

0119 11*2 

0120 CALL ELAPSE(II.IMR.IMlN,tSEC) 

0121 type 111iIMR.IMIn,iSEC 

0122 WRITE(6,111) IHR.ImIN.ISEC 

0123 TYPE l20 

0124 ACCEPT 121, KEN 

0125 CALL FR0NT(KEN,3O) 

0126 IFIXENd) ,E0. *n') G0 Ti* 1 

0127 ST^P 

0128 200 CLPSE ( UNI Tti, DI SPPSEs • DELETE • ,8RRa209) 

0129 WRITF<6,ll5)(NAMFlL(PJ,Ptl4,26) 

0130 201 RECTYP«RECTYP*1 

0131 60 TP 9 

0132 205 CLESE (uNITai,Dl5PRSE8*OELFTEM 

0133 WRITF(6.116)(NAHFlL(P).Pal4,?6) 

0134 RECTYPaRECTYPal 

0139 60 1? 5 

0136 301 TYPE l^S 

0137 type 122.DSKID 

0138 Type i23 
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reRTRAN IV;PlU 8 V02«04 10131120 0i*JUl«>77 RA88 4 

SEGDELiFTN /TR|BlPCKS/WR 

0139 ACCEPT 121iKEN 

0140 CA FP0MT(KEN«3O) U 

0141 IF(KEN<1) .EQ| >C*) 00 TP 1 

0142 STOP 2 

0143 302 type lOe 

0144 00 TO 1 

0149 END 
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10131147 0;«JUL«77 


l»AQE 7 


1 j F0RTRAN iVvPLUS VQ2*04 

SEGDEL.FTR /T4|BU0CKS/I»R 

0001 subroutine $UBSTR<Ai1iN.BiJ«N) 

c h 0 ve a to B 

0002 implicit iNTrOER (A*2) 

0003 LOGICAL*! A(1)(B(1) 

0004 OATA BLANK/2H / 

0005 IS*I 

0006 JS*J 

0007 L>0 

0002 IF(N .EOi 0) GO TO 20 

0009 U«N 

0010 IF(LiGT.M) l«M 

0011 00 10 KiI.l 

0012 8US)*A|IS) 

0013 tS*lS*l 

0014 JSbJS*1 

0015 11 C0NTIMUE 

0016 if(NiQE,m) return 

0017 20 1*1*1 

0010 00 30 K«L«M 

0019 B(JS)aRL4NK 

0020 JS*JS*1 

0021 30 CONTINUE 

0022 return 

0023 end 


4 ^ 

4 # 
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6.1 SUBROUTINE ELAPSE 


riRTRAN 1V«PLUS VQ2«04 


SIQOEIiFTN 


/TR|8l0CkS/WR 


lOlSllSO o;«WUL»T7 


0001 


subroutine ElAPSSni.lMR. 

0002 


real ti.delta 

0003 


real SCR 

0004 


INTEQER JSCRiISECiIH!N.|HR 

0009 

c 

00 TP (li2)ill 


V 

c 

c 

initial CLALL 

0006 

1 

TIiSECNDSCO.) 

0007 


00 TP 9999 


W 

c 

riNAL Call 

oooa 

c 

? 

DELTAaSECNDS(Tl) 

0009 


JSCRbDElTA/60, 

0010 


SCRbJSCR«60. 

0011 


ISECbDElTA«SCR*0.5 

0012 


|HRaJSCR/60 

0013 


IMIN«JSCR-IHR*60 

0014 


TYPE lOoO, IHR, IMIN. IS6C 

0019 

1000 

F0RHATO Tt^TAL ELAPSED TIMF 

0016 

9999 

return 

0017 


END 
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6. 8BGNBNT DELm PKMRAH 


KQMENT DELETE 


• ASSI8N LINE PRINTER TC 
UNIT 6 

• INITIRLIK EUPSED TINE 
COUNTER 

• CAU ERRSET 


GET HOUR, niNUTCS, AND 
SECflND FROM the SYSTEM 
FOR LAUR PRINTOUT 


ACCEPT AND CONVERT THE 
SEOHENT NUMBER 


PRINT OUT LINES I TO B OF 
THE OUTPUT REPORT (SEE 
AnACHMENT 1) 


TC CONFIRM A LEGAL SEGMEm 
NUMBER AND the CORRECT OfS 
PACK MOUNTED 


IS ^ 
THE DISK 
TO BE USED ON 
RPCS PLOTTER 


CORRECT 
L ".‘ PACK 

►'.'i VTCO 


TYiE OUT •INCORRECT DISK 
PACK MOUNTED' MESSAGE 


SEGMENT 
CN DATA BASE 


*YPt OUT • SEGMENT ‘•CT OK 
DATA BASE' 'CSSAGE 



TO PUT 'OKI:' INTO THE 
FILE NAME 


OPEN THE DISK TABLE AND 
DIRECTORY FILES 


the directory entry 

ASSOCIATED WITH THE 
SEGMENT BEING PROCESSED 
IS READ INTO BUFF2 


• the number of acquisitions 

IS RETRIEVED 

• THE SEGMENT HUMBER IS PLACED 
IN the file NA“£ 


RECTYP • 1 
(DOT DATA file) 


set month, day. and year 

FROM THE SYSTEM FOR LATER 
PRINTOUT 


• MOVE 'OOOTS' TO THE 
FIU NAME 

• OPEN THE FILE IDENTIFIED 
BY THE 'FILE NAK' 
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7. CONTROL PROGRAM CAMSEX; 


f 


hfprtran iy< 
CAMSEX.FTN 
c 

. c 
c 
c 
c 

0001 

0002 

0003 

0004 


0005 

0006 


igLiAS-Xfla.?ai 

/TR|‘?L®CKS/W‘? 

CRMS/mPO CRNT«ML-PP0SRAiL 


18186 149 2ialiifi«77_ 


^86 1 


0* 


S0URC6«C4HSEX.PTN 
OBJECT (CAMSEX, L»9J 

TASK (C AMSEX . TSK „ 

IMPLICIT IMTEGiR (A-0),(S»?) 

_lftCL'*Lt *SYlC300.3TCAHSCaM?)N.lMC« 
iNCLOijE *SV|C3no.3lCAMSPAt(AM.lNC' 

PaPA^^'ETeM MAXCATa6r,>«AX$U9a6n,MAXCMN>4,NPlX«196fNLiN*ll7|MAXrL0a90 
liMAXVsll«N!>8TS«209.DLSKtPslO.OSSKIPBiO,MAXACI)«6iHAXACCa4» 

-2MSP!r;u»tt.\2JlIiia«10 _ . ... .. 

equivalence (Cl.ACrATE)i (C?,ISE(i)i(C3iPPLAG)i (C4«TxD* (C9,D1SKID) 
INTEGE;^ Ci{4A9),C2(256)iC3(71),C4{3%8),C9(629) 


0007 < 
0006 ^ 
0009 J 


JNTESEl ACPAT6,SUBrAT,SgPP?P,CATKNT#CATTM 
BYTE C^^'VECiNtJ'THAN.NCSUB.D'^tCATiOBTCLU 

CgMM?'fVC^Kl/ AC0ATE(2.h AXACC).CHNVEC<MAXCMN.HAXACC).NgCMANtNgSUR. 

^SUP^AT<,'1AXSU0),SU6P^P(^"AXS'^B)•CATK^|T(MAXCAT),CATTH{MAXCAT),N«DP. 

2N0aU,N!’T'"»njTCAT(Nr'.0TS)|r4}TCLU(NOeTS) 


OOin 

0011 

0012 

0013 

0014 


w* 

iNTgCEK ADATPS,Sl'N',2jANALSTj.»^l.DDAy,D0TOAY,PDATEliTDATEl 
integer PDATF2,TOATE2,PL'»TE3,TnATE3»CATNAM,DISKIO»PANO0M|GPIO 
°YTE DELFLG.^'jfACQ.saiL GR.SiiNSL.NST ART.NTYPCl.ALPiALPg 
kJYTE PCTCT.PCTCTa, VAR, VAPB.DLAilfcL. TYPE 

C0MMr'N;/C<^M2/lSE6,i)PLFLG|VgACQi aOaTES(2|MAXAC!3)|SOIl6P(maXACD) , 
1SUN'EL(^AXACD>,S0NA7(^AXAC6>, lMrAT£(2), ANALST{5),rLODAY(2)i 
2D0 TDay(2),‘'Sta«t,\‘TYPE1,PO4T''1(2j,TPATE1{2>i'»DATE 2(2J|TOATE2(2), 
3PDATE3(2>.TDATE3(2J ,NZCAT,:ATNA"(MAXCAT),ALP<MAXCATltALP0» 

- eCTCTI‘iAXCATl»PCTCTifiYA6(MAXCAT).VARB 

C* 


0015 

C016 

C017 


0016 

0019 

0020 


0021 

0022 

0323 

0024 

0025 

0026 
0027 
002fl 
0029 

0030 

0031 
CC32 

0033 

0034 


C* 


INTEGE-'^ ErLAGl,EFL4G2,EFLA53,fcrLAG4,EFLAG5,UPLA01,uFLAG2,UFLAG3. 
1UFLAG4 

integer PFLARffiSKN* T 

/C^M:5/PFLAG,:,SKM‘jT,EFLAG1»EFlAQ2,EFLAG3,EFLAg4»EFLAQ5,UFLA61 
1 tJi.Fl AG? , UFj,AG3j UFL * G4 , ^:E» L .'.b ( M * XSLB ) 


INTEGeV TX1,TY1,TX?,TY2, ACr'ISP,G,6,DTWlNO,O0TARYiGHlN,6HAX,FUL 
IMEGE'! Sp-clMD,Cl.A; \n,CLii*^' D 

C0Km 2./C‘^M4/TX1,TY1,TX2,TY;, IXl# I Yl » I X2, 1 Y?i ACD ISP(2 > # I IK 4 ) , Q( 4) , 
1B(4) , jTwlNOtSiNaOT.n) ,SP''I* D(5,N2SP4D) , IMWINO(4),N(JMO0T, 
_2MlARY«ND0T§J,5aikifi'i.AX|fUL{2»7>iCLAWNDl9J,CLUM!!lD<B) 

Ce‘'M0\/ceM5/niSKID.PANDaMvDC*TS),GPlO(ND0TS),DLABEL(ND0TS), 

lTYPe(in0TS),PECLi7C 
DImensIJN BEn4 (5) 
dimension PE08 (1C) 

DHe^SI^^' REG (20) 


w(37) 

Cl''E‘;sl0N GPT(17) 
data BEQ (l)’/6Rl*'IT / 

data REa (2)/6BFUL-'l3/ 
data HEQ (3>/6PFLDrEF/ 
DATA RFfl (4)/6R0'l»-'Y / 
lAlA-Ji^ L5)^«ACLLAF/ 
data wEQ (6)/6PCLU^iG/ 
data red (7)/6RRECPFF/ 
data REO (8)/6RDUM*^Y / 




CnJAUl 


i 

\ 


I 

j 
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r0RT»AN ly-PLOS VOP-04 I2li!6l45 ?»«AllQ*77 PAGE 2 

CAMSEX,rTN /TStB L^CKS/^P 


0035 

DATA 

REC (9)/6RPPMi PD/ 

0036 

data 

REO (10)/6RCA>TST/ 

0037 

DATA 

REC4(1>/6DD?T*VR/ 

0038 

DATA 

R5C4(2)/6RSCPLeT/ 

0039 

DATA 

«Ec4(3)/6R0?TP9tV 

0040 

DATA 

atil«(l)/6RD?TpFT/ 

0041 

data 

RpQfi{?)/6P0lASCR/ 

0042 

data 

REC9(3)/6PCL0pPT/ 

0043 

DATA 

RE0B<4)/6PFLDpPT/ 

0044 

II«1 


0C45 

CALL 

tLAPSP(lI) 


C I'MlTlALfZE I-luU .,t>T H«RnwfRP 
C 
? 

0046 CALL attach 

0047 O^i ao Jal,l7 

0043 3PT(J1*0 

0049 nt? qn jal,l7,5 

0050 GPT<J)s255 

0051 CALL HXFm(oPT) 

0C5? CALL -*IT 

0053 CALL T)ETaCH 

0354 1 Ci/TIME 

0055 call ;! JTPut <27,12) 

0056 >;PITE(6, 3003) 

0057 300^! Fi-’^MAT( '** .5X, ••••CAfi-: l-JCi' C<>'T'?0L PRPGPAh#*** ,/) 

0053 'f^ITP(6,1001> 

0059 lOOl Fi^oPATC' 1 1< ITIMh SFi ic T A'^UVSlS') 

0060 -t<lTP('- ,1302) 

0C61 U02 c,;‘<vat(* p IN/jT MSHLaY') 

0C62 ^!Tf-(-,1003) 

0063 lun3 c.^.AyAT<’ 7 fIFlL' rcri'ITr-,') 

0064 '-ITP(^,13^4) 

0065 1J04 f/PSATC 4 ntT PA' C^SST G' ) 

00*6 ^.■9ITF(‘', 10 05) 

0067 lt05 F^RMAfd *i,/j C'^?!5S‘JA!'=- ZvEplaTS') 

0068 ^RIT'‘;J*'.10n6) 

0069 1006 rtJPi^ATC' •&OT SCATJCR PL2TS') 

0070 xRlTE<* .10 17) 

0071 1CD7 aD.-T LaL'FlL T 0 • ) 

0072 i*F,ITF(6,1006) 

0073 IC'Ofi F/Pmat(» 3 CL'-^STfcw l*pELL1'XGM 

0074 JKITr(6,10''V) 

0075 1CC9 riJP-AT(« 6 Cf'STcP f I SPL av/pEl APrL * ) 

0076 'RITF(4,1[)ic) 

0077 lOlO F:59 mat(* 7 CLaSSK ICaTI / . CI'RcfcCT I e‘7MAP DISPLAY') 

007-^ _ 6^1011) 

0079 ' iCll FiiPMAlC' « PtPi'JPTS') 

0090 f 4,1012) 

0091 103 2 FJPMATC* •dot Data c-EPi^^T') 

0092 'KlTFci.lOlS) 

0093 1013 FuPHATC aBlAS C>PHPCTIP\/Ci,ASSIF1CAT10N summary' ) 

0094 _'*‘«IIf^i6,10l4) 

0095 1014 rePMATC »CLUSTcR RFP'if.TS') 

0096 wRITE{4,10l5) 
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.fiAfSBX 

.rm. , 

- /TRiaLgfiKS/WP. -- . 

0087 

1015 

F«PMAT(* »FIELD DATA PEP0PT*) 

0086 


MRITei6.lOl7) 

0089 

1017 

FaPMATt* 9 DATA 6»SF UPDATE*) 

0093 


MRITE(4.1032) 

0091 

13.12 

FiaPHATC* •PERMA'tfeNT D*Ta BASfe UPDATE*) 

0092 


.yRIT6l6^101dL_ - 

0093 

1033 

F8PMAT(* #CArtn Tf^AUE file F?H arFL^AD DPT DATA, 

0094 


WHITE(5,1020) 

0095 

102'j 

raPMATl • 99 CA^'S T=ST* ) 

0096 


WR1TF{6.1021> 

0097 

ID?1 

F0»»mAt(* X EXIT*) 

0093 

100 

^«1TE(6,2000) . - 

0099 

2oro 

FeOMAT(/» *i9* ) 

0100 


CALL ?VTP'JT{7) 

0101 


8Ead(6,2031).<i 

0102 

2001 

Fi6fiMAT(37A2) 

0103 


CAUL FP/NT(W,37) 

0104 


JF(:J(1).EQ.'X •) &.! Ti? 1?0 

0105 


KsO 

0106 


CALL 1' ’■fF(K,W,37, .) 

0107 


IF(K.Gt.l7)p?' T3 1^0 

0106 


IF{n,lF.0)R2 IOC 

0109 


Ct TC 2C.0 

0110 

i5r 

CBMiN'Jfc 

0111 


M«2 

0112 


call cLApsfeun 

0113 


ST-'P 

0114 

20n 

IF«N.'^F. 99)60 T./1 2^0 

0115 


^alC 

0116 

2b<^ 

If (.-^.(.T.IO) G? T-*" loO 

0117 


IF(\i.fFC.4) LP T0 3)0 

0116 


IF(‘..fQ,S) lii: T0 4C0 

0119 


CALL CLOtFcSO) 

01? 0 


CAUL ?E.0UES(RE0(A:)) 

0121 


CAUL *AlTFfi(50) 

01?? 


6^ T' 1 

0123 

3Cin 

C/VTli- M6 

0124 


CALL LJTPUT (27,12) 

Cl?p 


WhITt (6,1040) 

0126 

1040 

r5)0|-«T ( •«* ,5X, •••*CA!-S I-IJC C0T PRPCESS1V6»*»* , 

0127 


>|F!T5(6,1022) 

0126 

1022 

Ft39MAT(* Lfl CPL5SHAIH evERLAYG') 

01?9 


Wf<IT=(6,1023‘) 

0130 

13?3 

FaPM^TC 2 DIJ.T GP/MiP scatter PlDTS') 

0131 


WRtTF('^,1024) 

013? 

1024 

FPRM4T( • 3 D?T LaHELLI* G* ) 

0133 

3Cl 

'-rite f 6,3001) 

0134 

lO'^l 

F3P,mAT{/» 'f?* ) _ 

0135 


calL ;;l'tPuT(7) 

0136 


^fcA0(6.lC0?)'*' 

0137 

3L''^2 

Fi)t?M4T(67A2) 

013a 


CAUL F(5;?NT(^,37) 

0139 


lF(h(l).fcO.’R *) G Tv1 1 

0145 


IF(Kil),^.Q*’X *J 0- TC 1 

0141 


K»0 

0142 


CALL I -TFF(K,Hi37.‘ ) 
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CAHSEX 

,FT,4 

/TR^Bi ffCKS/WB 

0143 


IF(\.lE.O) GP T0 362 

0144 


IKt«,,aT,3) QO! T0 302 

0145 


CAUL CLREFCSO) 

0146 


CAUL RRQUg5(REQ4(N>) 

D147 


CALL «AITFP(50) 

Cl4tJ 


G0 T5' 

0149 

400 

Cifli-TlN'Oc 

0151 


CAUL iU'TPUT (27,12 > 

0151 


WfiIT‘-{6,1041) 

CIS? 

1C41 

PZRmaT( *5' ,5X. I«*100 CfcP?t?TS*a*' ,/) 

0153 


XRITF(6,10?5) 

niS4 

10?5 

FS«:J»iAT(* 1 C7T L»*TA kEPaJ-TM 

0155 


wRtT‘=(6,1026) 

0156 

1l76 

Ffc!4MAT(» 2 tilAS ‘•|^P<(FCTr’\/CLA5Slf ICATlfJ'i SUMMARY*) 

0157 


RfiITF(6,10?7) 

oisa 

1(,?7 

raRM4T(* 3 CUliST'rO PFP'Tf'SM 

0J5« 


-»RIT'=(6.1028) 

0161 

10^8 

FZPmAXC 4 FIELD L'aT* 'JtP^DT*) 

0161 

431 

"iR IT? (6, 400 0) 

0162 

H j n c 

F£^»<AT(/. ) 

0161 


CAUL ^UTPuT(7) 

0164 


3fcAn(6,4001)V 

0165 

:j.-)l 

rt*J-4»T(37AP) 

0166 


CAUL F‘‘?''‘T(X,37) 

0167 


IF(-d) ,60. ') O' T^’ 1 

0166 


IF (sif 1 ) ,rO. M • ) G ■ T/, 1 

0165 


K s 

017 a 


CALL ^T^F{^^w.37, ) 

0171 


IFCM.l.L, 0) ii7 T'/ 4‘'? 

017? 


,5) T’o 4*2 

0173 


CAUL CLPfcF(50) 

0174 


CALL pF::c:fcS(Ofc06(.v> ) 

0175 


CALL -JA!TF-:(5C) 

0176 


T’’ 4oO 

0177 

3l:» 

^‘M17E(6,1030> 

0175 

1C3J 

FaPMATt* I*'VALIC' .OTI, 

0179 


T” 3ol 

0100 

4C? 

‘•'HlTf- CA.lO <1) 

01«1 

1031 

P-VALID ({.PTlti'''* ) 

Cl«2 


r,ti T" '■',1 

0163 


F\D 
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8. INITIATE SEGMENT ANALYSIS INIT 


i 
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15i3?I24 14«JUL»77 


^AQE 1 


IMT.rTN 

0001 

0CC2 

0003 • 

0004 • • 


/T'<lBLf'CKS/W!l 
-.IMPLICIT 1MT5QER<4»2) 

iNtUiIll ♦SVlt300»33CAMSCBM«'N,lMC« 
llcrL'Jat •SYIC300|33C4 MSPARaM,ImC* 

MAKA^gTEfR ‘iAXCAT«6rt,MAXSUBa60tMAXCHN«4*NPlXBl96tNLIN"117iMAXrLna90 
l,t'AxVBlitNDeTS*209iDLSKlPBiO|DSSKIPPlO|HAXACOB6|MAXACCB4| 


0005 

0006 


2m?.^P'J!)*6»NS»DTWU«10 

EC iIVaLEMCE (Cl«ACnATE)i(C2ilSPS).(CS|PFLAQ)i(C4(TXl)*(C9»D|SKID) 
I <irgOgR C1(469).C2(296 )iC3(71).C4(348)iC9(629) 


0C07 

Mia 

000) 


INTBCE^ ACOATE.SUSCATiSUOPOIPiCaTKNTiCATTH 
rJYTE CHNW£r.|N0CHAN.[\igSUB,D?TCAT»OeTCLU 

C0MMS'M/C?>Mi/ACDArE(2.MAXACr:)|CMNVEC(MAXCHN(MAXACC).N9CHAN|NBSU8. 

1SO^C>'T<i-AXSU'»),SUBP0P(maXSuB)iCATKNT(MAXCaT),CATTH(MAXCA7)»N8DPi 

2‘;3DUi^0TH,n0TCAT(^:i0TS>iD0TCLL«NOeTS) 


0010 

oou 

0012 

0013 

0014 


IlvTcCEP AOATPSiSUNAi.AK'ALSTiFLDOAY.DBTDAV.POATEliTDATEl 
IhiTgrsEP PDATP 2 tTOATE 2 |PDATE 3 iTnATE 3 iCAT|^i)!liDt$KlD,RAND 0 M| 6 PlD 
«YT6 cEuPLG,Nk)ACO,sBILCRiSUNEL,NSTART|NTVPEliALPiALP® 

«YTS PC 7 CT,PCTCTP|VAP|VAPfc,OLAnEL»TYPE 

‘<j/c^M2/ISPG.DFLFLG|MeACQ, aCATES(2i MAXACO) • SBIlGRIMAXACD) • 
l$a >iEU(MAXACD)iSljNA?(MAXACD)« I MD ATE (2) • ANAtST (9) |FLDDAY( 2) i 
2 P.'!TDftY(?)iNSTAPT,NTYPEl|PDATEl( 2 ),TDATEl( 2 )»P 0 ATe 2 ( 2 »»TDATE 2 ( 2 >i 
3PUATE3(2>.TCATE3(2)|N0CaT,CATNaM(MAXCAT),aUP(MAXCAT)iAlPE. 

4 PCTCT(MAXCAT)|PCTCT0,VAR<MAXCAt),VAR0 


0015 


C* 


0015 

0017 


0016 

0019 

0020 


0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 


1 \TEr.£P EFLAGl.EFLA62,EFLAr,SiEPLA64|EFLAa9iUFLAQl,UFlAG2«UFLA63i 

1’JFLA5(» 

lixTfeGEP PFUAGfOSt'MV'T 

r^^)^'‘N/CPM3/PFLA0«DSKMMTiEFLA6itEFLAG2,EFLAGSiEFLAQ4iEFLA69|UFLA6i 

1.CFLA“i2.UFLAG3,UFLAC4,NEWLA0<MaXSU8) 

Integer TXl,TYl,TX2,TY2,ACnISP,G,B,DTWlNO,O0TARY,GMlN|GMAX,FUL 
integer SPktlND.CLAWNOfCLUWNO 

C 3 'iMrN/c 0 M 4 /TXl,TYi,TX 2 ,TY 2 ,IXi,lYlilX 2 ,|Y 2 ,ACO|SP( 2 )ilU< 4 », 6 ( 4 » , 
lB<4),DTwlNn<5.N0DTWC).SPWl'JO<9,N0SPWD)iIMWlNO(4)|NUPD0Ti 
2O0tAPv(ND0TS).GtiiN.GMAX,FUL(2i7)|CLAWND(G)iCLUWMD(8) 

Ce'^MCM/COM9/OISKIO.RAND0H(MD0TSl|6RlD(NO0TSIiDLABEL(NO0TS), 

lTYPE<NnaTS)|RECL«C 

byte DTSDA1(27)iBTSDA0(22),FLDaTA(27».FLDTmP(24) 
byte DPXiDLF.DFB 

byte xTCLAM(27),XPCL*m(27),XTClLMI27)iT|TLE( 45). 
lXPCuU!<»(27),XTST0t(?7) iXPSTnTlGtliStAtMPlEBIiPNETWB.KEYlNlGO) 
byte sEGN(4),PUNCHR(10)|TEMP,AnIOIT(10l»DT6XYT<20»,8CTXYT{20) 
byte TMPCL«I27)|TMPCLU{27)iVPRTX(11),VBRTY<11)#FLDNAM{8) 
L 0 R!CaL «1 XPAT0K52) 

PEAL TS7ART,TELPSD.KPAT02(S6> 

EQiJIVALENCE(IPNCMR,PUNCHR)« ( 0 NETUe.KEYlN(in 
E0lllVALENCE(DBtDA(I).KPAt01(i)) 

ECm VALENCE! KPAT02(1 )iOATA(1)) 

OIME^SI0N O0TDA(26)|MAXCV(4)«MiNDy(4)ilPNCHR<5)|FLD9UF(l5) 

DIMENS I0N rATA(72).DPl(3)iXDOTfiS(ND0TS) 

DIMENSI 0 N DArLAQ(6)|RE0(9).LP0(9)iCLAMEO(9)ieiUMeD(9)|87ATED<9). 
lO0DULU(5>iO0TOLU(5)iCLUSTT(26) 

DATA TMpCLM/*O',»B»i»O'iM«,»C*i»8»i»0*,fO*»»»*.*l*#’3’i’C»,*L^ 
l'A»,*S'i*S*i‘M*i»A*i*P»»*,»»»Tt|»^«»|?pi,l|«,»lt,OiO/ 

DATA TMpClU/'D»,«B*i'0»i»I»i‘C«i<3*#»0'»»0»i»»»i'1'i’3*i*C»i»L». 
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P0RTRAN 

INlTiFTN 

DOST 

OQ38 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 
0091 


0052 

0093 

0094 

0095 

0096 

0097 

0098 

0099 
0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 


IVoPLUS V02»04 19132124 l4«juL*77 PAOE 2 

/TR|Bl0CK8/WR 


I'U', 

' 8 *.‘T«, 

•E* 

,'R' 

, 'M* 

I'P'.'i* 

.'T'.'H' 


•P',*l»,*l',0/ 

DATA 

xtclam/ 

* 0 * 

,'B* 

1 * 2 * 

•'I'.'C* 

.'3*. 'O' 


i0',i,i,*3*,*0'i'0',l]'. 

1*X», 

'X'.'X*, 

'X' 

.'T' 

»'C* 

1 'L‘i'A' 

. 101 . 1 ,. 


»M',IA*,*P«,0/ 

data 

XPCUH/ 

'D' 

, 10 . 

,* 2 * 

I'l'.'C* 

. 131 , 10 * 


*0',*,*,*3'.*0'i'0','3'. 

I'X', 

•X'.'X*, 

'X' 

.*P* 

,'C* 

I't'.'A* 



•M','A*,»P',0/ 

OATA 

XTCLUM/ 

'O' 

i«0* 

i<2* 

I'l'.'C* 

, 131 . 10 * 


»6*.»,».*3*.»0',»0',*3». 

I'X*. 

'X'.'X', 

*x* 

,'T' 

,*C 

.'L'.'U* 

,,0.,i.i 


*H', *A*,»P*,0/ 

DATA 

XPCLU"/ 

ID' 

,101 

1*2* 

.'I'.'C* 

.'S't'O* 


I0',i,t,'3*,*0*,'0'i«3', 

I'X', 

'X'.'X', 

*X' 

.'P' 

,'C* 

.'L'.'U' 

*'8*,'.' 


•M','A*,*P',0/ 

data 

XTSTOT/ 

ID' 

,'B' 

.'2* 

.'I'.'C 

. *3*. *0* 


*0',*.*. *3*, 'O'. 'O'. '3*. 

l*x», 

'X'.'X', 

»X* 

.'T' 

,'S* 

,'T', 'A' 

,*T*,»,' 


'D*. 'A'.'T', 0/ 

DATA 

XPSTOT/ 

*D' 

,'B* 

,*2* 

,'I',*C 

. *3'.*0' 


«0',',*,'3','0'f '0','3'. 

I'X', 

'X'.'X', 

*X' 

.'P' 

I'S* 

,'T',*A* 

.*T*.*,* 


'O'.'A'.'T'.O/ 

DATA 

FLDATA/ 

*D* 

I'B' 

,'2* 

, 'I'.'C 

.*31, 'O' 


'O'. '.*.'3'. 'O', 'O', '3*. *X 

I'.’X 

', 'X'.'X 

* . ' 

F',' 

I',' 

E'.'L*.' 

D',*,',' 

D 

','A','T*,0/ 

Data 

DTSDAI/ 

'D' 

,'B' 

f *2* 

, 'I'.'C* 

* '3*, 'O' 


'0*,*,*,'3','0',*0*,*3'.*X 

I'.'X 

*, 'X'.'X 

* . ' 

D',' 

D',' 

0*,'T',' 

$1,1,1,* 

D 

*.'A*,*»*,0/ 

data 

OTSDAO/ 

*0' 

,'B' 

I'O' 

, 'I'.'C 

, 131 , 10 ' 


*0*,S',*1*,*3'.*D', 

1 '0 

'.'T'.'S 

* . * 

. ' . * 

T',' 

H', IP'. I 

0/ 


DATA 

FLDThP/ 

*0' 

,'B' 

,*o* 

,'I','C 

, '3*, *0* 

, 

'0',*.*,'l',*3*,*r*, 

1 'I 

'.'B'.'L 

* . ' 

0-,' 

S',' 

,','T',' 

Ml , .pi , 1 

1 

*.'l',0/ 

data 

DTGXYT/ 

*c 

,'3* 

1*0* 

I'O'.t.' 

I'l'.'C 

. 

*O*,'0*,'T',*G',*X','Y', 

1'.’. 

'T'.'M', 

ipl 

,*!' 

.'1' 

.0/ 




data 

SCTXYT/ 

*c 

,'3' 

,*0* 

,'0','.' 

1*1*. *3* 

. 

*S',*C*.*A',*T*,*X*,'Y'. 

1*.'. 

'T'.'M', 

'P' 

,'l* 

,'i' 

,0/ 




data 

STaTMP/ 

•D' 

,'B' 

,*0* 

, 'I'.'C' 

. '3*. 'O' 

. 

'O'. *.','1*. *3', 'S', 

I'T', 

•A'.'T', 

*F' 


,'L* 

I'.'.'T' 

» 'M. *P* 

. 

'I'.'l'.O/ 

data 

CLUSTT/ 

'D' 

,'B' 

, 'O' 

, ' 1 ', 't' 

. '3*. 'O' 

. 

IQ'.'.'.'!',']', 

I'C, 

'L'.'U*. 

'S' 

,'T' 

. ' A' 

.'T'.'S' 

, ', *. 'T' 

. 

'M','P*,»l*,'l*,0/ 

data 

TITIE/'I', 

♦ N' , 

*1', 

'T'.'I*. 

•A'.'T', 

'B',' '.'S','E','G','M', 

I'E', 

'N'.'T', 

1 I 

,*A' 

, 'N' 

.'A'.'L' 

, 'v, 'S' 

. 

'I'.'S*,' '.'V'.'E'.'R*. 

2'S', 

*I'.'0', 

IN' 

. ' ' 

I'l* 


. 'M', 'A' 

. 

*Y',' ',*1*,*9',*7*,*7'/ 

data 

ADIGIT/ 

'O' 

. '1' 

,'2' 

, '3', '4* 

. '5', '6' 

. 

171 , * 8 '. *9'/ 

DATA 

DFXiDFB 

,IN 

.10. 

K0,lT/'y', ' 

' .5.6,4. 

4/ 


DATA XD0TQS/ND8TS*O/ 

II>1 

CALL ELAPSEdl) 

PAGE*! 

CALL CS6DPM(5iPA0E.TITLEi45) 

MD!»TS«ND0TS 

ML1N«NL1N 

mPIX*NPI* 

PT*7 

PD*9 

OPLlaO 

LR^*2Q4 

NR»lO0 

0PEN(U'^I7■nrUfTYPE•'UNKNe^l^•|NAHe■DTQXYT|RECPROSt2E«ND0T8|MA)(ReC■ 
11 1 ACCESS* 'SEQUENTIAL* I P0RMa«UNP0RHATrEO') 

WRtTE(DPU)XO0TGSiXO0T6S 

CL8SE(UNlT*DrUiOISP0SE*'SAVE') 

0PEN(uM ITbDFUi TYPE* 'UNKNOWN*. NARB« 8CrXYTiREC0RDSlZe*ND0TS|MAXREC* 
1N0 SPUD. access* 'DIRECT') 

DO 4 |*1|N4SPWD 
WRITE(DrU'I)XOOT1S.XD0TQS 
4 continue 
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2A5I S 


P0RTRAN IVnPuuS 
INITiFTN 
0074 


0075 


V02-04 

/TR|Bl0CKS/WR 
CL0SE ( UN I T«0rU ( D 1 SR0SE* • SAVE • ) 

0PEN<uM|T«DrUiTYPEa<0LDi|NAHl«*OIOlCSOOi3OO9OIRriLEtDAT< 

iREC0RDSl2Eal2e.MAXREe«2OOiACeE8SpiDlRECT') 


0076 

0077 
0070 
0879 
0080 
0001 
0082 

0083 

0084 


C 

C 

C 

C 

r 

10 TYPE 901 

accept 800, KEVIN 
CALL FR0NT(KEYIN,2O) 
in0NETW0,EQ.’RMQP 73 20 
lF(0NgTw0.PQ,'N«)60 T0 1 
IF (0^ETM0,EO. T0 90 

!F(0VGTw0.EQ.'PM6Fi T0 90 
TYPE 601 
60 TO 10 


A 


C 

C 

C B 

C 

C 


0085 

1 

type 902 

0066 


ACCEPT 800.(K6YINm,ltl,4) 

0067 


CALL FP06T(KEYIN,2O) 

0066 


lF(0KETw3,EQ,«X*)GP T0 90 

0069 


IF(0KETw0.FO,’BMG?i T0 10 

0090 


CALL INTL2E 

0091 


00 3 l>li4 

0092 


SE6n(I)>KEYIN(I) 

0093 


TE^P»SEgN(I) 

0094 


D/» 2 K»lil0 

0095 


IFCTEmP ,NE,AD!GlT(KnG0 TP 2 

0096 


FLDAT4( 1*13)*TEmP 

0097 


DTSDAK1*13J»TEMP 

0096 


XTCLA'iC 1*13)«TEMP 

0099 


XPST'^K 1*13)»TEHP 

0100 


XPCLAMI I*13)*TEMP 

OlCl 


XTCU.'t’(l*l3>«TEMP 

0102 


YPCLUmI l^lSItTEKP 

0103 


XTSTtiT(1*l3)*TEMP 

0104 


G0 T.' 3 

0105 

2 

CfC'JTlviJE 

0106 


type eng.SEGN 

0107 


G0 T'“ 1 

0106 

3 

C0NTlf;uE 

0109 

r 

DbC?'?E(4i621,SE6N)lSEG 

0110 

u 

31 

CALL jSKCHKt !SEG,PTR,DSKPT,FLA5) 

0111 


ni?KlO«DSKPT 

0112 


IF(FLaG.LE.0)6B T0 40 

0113 


1F(FLaG,E0,1)G2 T0 5 

0114 


TYPE 905iSEGN 


0 U 5 

0116 6 
0117 


G 0 t? in 

tvoE 9b3iSFSN|SE0N 
ACrE*»T 800, KEVIN 


8-3 


#A06 4 




T0RTRAN IVpPLUS VQ2-04 l9lS2lS4 i4«juL«77 

-lMUi.ElN <^TPieLffCKS/itS ^ 

0118 CAUL FR8NT(KEYINi20) 

0114 lFCflM0TU0.eQ. tvnQB t4_S2_ 

0120 IF(0METu8.NE.'NI)G0 T0 93 

_juii u ae t 0 m. 

' 0122 IF(0NETm0.EQ.'PM60 T0 1 

0128 SB TF IP _ 

0124 52 TYPE 615 

_fll2i _l£Cm_300»lI6YIN . 

0126 CALL FP0NT(KFYINi2Q) 

-1127 lF(0!CETL0,EQ.»K?iQcJ T0 90 

0120 IFCBNETwB.PQ.'SMGP T0 9 

0129 ag- IP. ll - 

0150 S3 type 816 

0131 . . ae T? 5 

0132 20 CBNTISUE 

0133 ,9e£WtUNlT»FD*NAME«»SYlC8OO*l36L0BALiTMP|l*»TYPBf*UNKN0MN* 

lEPP«T8»r0RMif UNFORMATTED' ) 

0134 LSitll - - 

0135 PEAO(FO)Cl 

_Q136 ..P6AfiifO)C2 

0137 READ<FD)C3 

0158 . »E*D(FD)C4 

0139 READ(FD)C5 

0140 CLgSFtUNlT »FP> 

0141 GB TO 41 

0142 <0 CeMTj.MUg 

0143 PECLPC«PTR 

0144 FINpClFu'PTR) 

0145 REaD{oFu'PTR,ERR«77)C2 

0146 lSw«? 

0147 4i CALL CSgPPH(5|PA06,T1TLEi45) 

0148 type 932iISEG,DSKPT 

0149 type 933»AMALST 

Q150 type 934 

0151 IOLF-PElPLO 

0152 Ot! 4P KkKbi.MBACQ . 

0153 nuFtOpn 

0154 jr(IPLF,EO,Kt<K)ULF«'«* 

0155 type 935>((ADATES(JjJ|KKK).JJUBl.2)|Din 

0156 42 C3‘TlN'-‘E 

0157 type 936iP0ATE1,IMDATE 

0156 TYPE 937>T0ATEliTD4TF2 iTPATE3 ... 

0159 type 938iFlDDAY 

016 0 type 939»D?'TPAY 

0161 IFCISm, £0.1)60 T9 93 

0162 46 CEi^:TI^'UE 

0163 type 914 

0164 ACCEPT flOO.KEYlN 

0165 CALL FR0l'iT(KFYlN,2O) 

0166 43 CFvTlNUE 

C 

C 

C Fl8W chart page 2 

c 

5 ^ ■ 

0167 IF(0K'ET«i9,FO, »X' )G'* T0 90 


8-4 


I _ 

r0RTRAN iV«PLUS VOS-04 l9l32l<4 l4«juk«77 

INITtrTN /TP|QL0CKS/MP 

“TIW* ii IB 

_ _ !F(0NpYwB,6O,*C»)O?l T0 60 _ 

0170 fr(0N6“tw6*,6O,'H»)Qf1 T0 60 

0171 60 T0 46 

‘ ‘0172 6(T Car.tlNUr 




CALL CS6DPM(5*PA6E. TITLE. 49) 

0f74 

0175 


TVPf ■ 

ACCEPT 800.PUNCHP 



CALL“Ff?0NT(Pu¥CH9ilO) 

0177 


00 69 til.S 

0176 

69 

ana‘l*5t(I)«IpwChrm > 

0179 


TYPE 907 

Olio 


ACCEPT BOO.KEYlN 

0181 


CALL FRaMT(KEYIN.2n) 

0l82 


IFOSiETwP.CQ. 'PilCiv T0 65 

0183 


If f0NETwP,EO,*T»)G^ T0 62 
!MB'^ET*P,P0,»YI)G • T0 90 

0184 


0185 


If <0WETfeP,EO.»6')O^ T0 60 



Typf vl4 

0187 


60 T? 6l 

OlPfl 

62 

CCf'TRUE 

0189 


ne 63 III. 2 

0190 


IMtOATEin)'.NE.tOATE2(I))60 1? 64 

0191 


If(TD4TEin).NF.TDATE3(l))O0 TP 64 

0192 

69 


0193 


PfLAS.O 

0194 


GC T'’ 66 

C199 

64 

type 90fl 

0196 


G0 T? 90 

0197 

65 

pflag.i 

-Tin — 

" 61 

T3>.TT7n?-' 

0199 


IF(FLDn4'^(l),NE,O)';0 T” 50 

0200 


HFLA03*C 

0201 


type 909, SBG^ 

0202 


T" 3c 

f'203 

90 

‘"PEL si^VlT.rD.NAMFarLDATA. ACCESS* 'SEQUENTIAL' 



i^AxruL'.fe'a‘*»'n3Fr*p -ATTiir^ftff'*^^) 

C204 


i PEN <u>' I T«rT,NAMFirLnTMp, access* 'SEQUENTIAL' 

C205 


l‘'AXFlD.fCR“*'UNF7R-ATTfcO' |PRP*80) 
PE4DtFr,BRR«71)NPfl i) 
wplTr(PT)N'^FLr 

C2C6 


0207 


Of- 7^ Iil.^'^FLI' 

620S' 


pe*0<FO,En 7 1 > f L 5 fa ' 'T 

0209 


'‘PITf (rT.E9R«71)FL''faLif 

0210 

70 

C0f'TlNi:F 

0211 


CL?S?(Jf,IT«FT, DIS»<^SE«'8A''B') 

0212 


eL''S?(UvlT*FG. OlSP.'iSEa'SA'/E') 

0213 

68 

EFLAG3*i 

0214 


TYFmi 


C 

PL9WGHART PAGE 3 

0215 

30 

CBMiNUt 

0216 


GmAx*«9999 

0217 


GmIn«9999 

0218 


IF(0PTG*Y(1) ,NE,O)G0 T7 51 

62l9 


Type 9i?»SPff¥ 

0220 


50 TP 90 


PA6E 9 


^VfBa'fkOVNAXRECa 

TVPEa'NEMtfHAXRECa 
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rePTRAN IV«PlU 8 VQ8«04 


m 


m 


0PEN(UMI tarDiNAt 


15132184 l4«jUk*77 


PA8E 5 


NAnEarTso Aiif vp^i • 5Lo ^ i aCcess* • D I PE et • 


liMAXRgCBND4TSf4E6ePOSl8E43S) 

0222 0PE^ltu^IT■PT«^*M6BClTSOAO|TvPB■•^Bk• I ACCESS" 'OIPECTt* 

lREC0PnSjPEal3»MA)rRi:CBNf)0T8) 


' 0223 00 29 !b1.*iO0TS 

_fil2.4 PEAjlif3«l,fRR"36)D,r«TrA 

0225 IF(kPaT01(3) •PQ. -9) KPaT0^(3)"0 

0226 !r(KPAT01(4) ,6Q. .9) KPaTOX(4>bO 

0227 WRlTE(rT*l)O0TnA 

0226 K«3 

0229 "b4 


_02Sp 

0231 

C232 

0233 

0?34 

0235 
_0?36 

0277 

0236 
0239 
024U 

0241 

0242 
"0243 

0244 

0245 

0246 

0247 
0^46 

0249 

0250 

0251 

0252 

0253 
_C154 

0255 

0256 

0257 

0258 

0259 

0261 

0262 

0263 

0264 

0265 

0266 
0267 
0266 

0269 

0270 

0271 
0*72 

0273 

0274 


TYP6{ptKP4T01(3) 

DUAB>L(!)"KPAT01<4) 

T0 24 Obi, 6 
D0 23 Jsl,4 
KBK*1 

IFUPaTOUK*!) ,PQ', -9) 00 T'’ 29 
. . - lPVBlBVTE(K»KPAT5i} 

OMAXBmAXCGMAX, IJV) 

GMImbmIMGmI'J, tOV) 

23 CKVtInUE 

0»P4l 

10V*r!»T0A(P) 

IFUOv.FQ. -2057)00 T» 24 
GMAX>mAX(GHAX, Tdv) 

GmImmIncGMI'I, IDV) 

PbP^I 

IOV«DrTDA(P> 

GMAXBmAX(G^*AX, IDv) 

<'.MlMKlN(GMr!, lOV) 

PbP* 2 
KtH *3 

24 Car.'TIME 

29 C0VT1MUE 

CL»SE{'-iwITtFT,DlSP-^SF*'SAVF* ) 

Ci,"SF(Uf.lTBFn,OlSPr'SeB«SAVe») 

G0 T? 32 
36 UFLA03BO 

type 912»SE0M 
G0 Ti; 90 

32 CK'TInUE 
„ . . type 913 

IF(PFLAn.fcO.O)r,0 T" 33 
IFjPPATtlH) ,NP,O)ft0 T7I 34 
TYPE BC4 
G0 J''i 9c 

33 C0'Tt\U£ 

IF(Tn*TEl(l)jNEj^O)R0 TP 8J 
Type 62C*XTCL"A> 

G0 TO 6? 

«l CALL FT»nfR(XTCLAM,TmPCLMi*’L1^i^PIX|MLI»<iBFUA62) 

IF(BF-LAg2,E0,1)GP t2 37 
TYPE 803 

G0 T? 93 _ 

54 CALL FtRKFB(XPCLAM,THPCL‘i,MLIN.*'PlX|ML|Ni6FLA02) 

ir(EFLAQ2«E0,l)Q3 T0 37 


8-6 


pAOe 7 


.. 


reRTRAN 1V-PI.US V02-04 l9l39l?4 lR«JUL«77 

. ^I1IT|FT^ /TRj«l®CKS/"»» 


027» 


TYPE 805 

027A 


00 TO 1 

0277 

37 

C8^TtNUE 


C 

4A 

0278 


|F(pri.4atNg,O)O0 TP 44 

J279 


CAkt ET9NrRCKjCtUK.TMPCUV»UIN,^R|X|MLIN.ErLA0l) 

0280 


!F(gFLAnl.BO,l)Q^ T0 54 

0281 


TYPE 806 

0282 


38 T? 90 

0203 

44 

CBMTI'jUE 

0284 


If (PD4TE2U),ME,«9)QP T8 49 


C 

tr(pgR'4ANE*^T CLUSTER MAP Evl8TS}O0 Tf 45 

■■0285 


TYPE 807 

0288 


G8 T? 9o 

0287 

45 

CALL rT«NrP(XPCLU«.TMPCLU»ML!N,f^P|XjMLIN,EfLAGl) 

0288 


If{EFLAOl,EO,l)0'’ T? 5A 



TYPE 808 

•'^70 


G«) T ' 90 


C 

TLIv, CW4PT PaQE 9 

0291 

54 

C0NTlNJt 

0292 


SPEa(( j^ITbPT, N*Mg*rLiJSTT,TYPPi*9EW»i access* ‘DIRECT *1 



lMA«9ec*KA)tCAT,ReC/’LSI?E*3ft) 

0293 


lF(prLAf,»NE,n)O0 TC' 57 

0294 


If (T0 aTE3<D ,lE,0)M' TP 35 

0295 


iPEn (L^ 1 T»rO.N'AMg*yTSTrT,TvPE*»PLD* I ACCESS* ‘SEOUiNtlAL 



ir^5M«« j-MresMATTEO' ) 

0296 


Kfe*D(F0.EHP*72)Cl 


C 

0*1 


C 

Xi7 


c 

V«17 

~02?7 


Old 55 t«l,'-A'<S0u 

0298 


Q*! 

0299 


X»7 

0300 


Y*17 

0301 


J*l*l 

0302 


PEADCr'',fchK*73,fef'L»56)fATA 

■■^503 


■ kPl fP cPT* MDAT* 

0304 


U1 S*l,4 

0305 


ir('3AT*<':) ,SO, 3,C)Oii T'- 5a 

0306 


03 I"" BP*0|Y,P 

0307 


ItjVti'oATtiEIH^) 

0308 


rMAy8nAXfGMAA| ID*/) 

0309 


';m1a,«*-I\(GP1‘i, icv') 

0313 

lor 

r(»vTl' UE 

0311 



0312 


Xs»*9 

0313 


Y*V*1A 

0314 


lOVtl’ATAlY) 

0315 


r,H4x«MAX(GMAX, !LV> 

0316 


0 11 n**'IMGM|*j, IDV) 

0317 


IDVbTaTaIY*!) 

0318 


TiMAmbmAxIGMAX, IDv) 

0319 


r«l* «MTN(6Mlrj, ILV) 

0320 

lOj 

Ca‘Tl*aUE 

oiH 

95 

TP’TFj'iP 

C3?2 

96 

C0nTI\'JE 


reHTftliM tV»PLUS VQ2*04 
lMlT.rT<< /TWiBi gc<s/wf_ 


19I3?I24 J4«JUU»72 


PAOf • 


-A 223 
C324 
6329 
' 0326 
0322 


0326 

J132&. 


0330 

M 3 l 

6332. 


0339 

OliO 

0341 

LS 42 

0343 

Jim. 


0346 

0346 

0347 
63iA 

0349 


0360 

C3A9 

0370 

3371 

3372 

3373 


3374 

0375 


check flpw Chart 
CUSE iliMl T«F0« OlSPESti * lAVS • 1 
Cl'’SE(UHlT»rT,0|SPRSI«*SAVe») 
BfLAfiaii- — 

TYPE 94fl 

62 12 20 - 


57 


CONTINUE 

„I£iPJUlE3(lJ^£Q«*9l6£ TO ?4 

0PFN(u''lT*PDiNAM6«yP8Ti;TtACCIS5*»IEOUEN7lAl.»iTYPB»»fUD*i 
4ifcaMP»U>iF09HATTED» J 
REA 0 (rD«EBBa 75 )Cl 

02 56 Ul..iAlSua 


0333 J«l*i 

_J1334 R£AAXI‘J«t;Rni76«ENba56lQATA 

0335 wH1TE(FtM»OATA 

0384 5A„ COilllaUE 

0337 'S* TP 5ft 

_jiaaa zi efi acmo 


72 


JA. 


74 

76 


93 


Type 9 in 
6 iJ..Ta JO 
EfLA05«0 
TYPE 6C9 
57 TP «0 

, feFLAG&iJi. 

TTPB 810 
82 IJ 9 C 
TYPE 811 
Grf TP 92 
CB'JTIn'JE 
f^LAr? 6 «a. 


0381 

3552 

•>393 

0354 

0355 
.3396 

77 

78 

type 412 
did T7 90 
type 817 
57 T'' 9C 

type 818 

37 T£ 9a_ 

3397 

79 

Type 819» 

0398 


3^: T7 90 

0399 

80 

TYPE al9* 

336S 


37 T-^ 90 

C381 

35 

■ Tl^Ufe 

3362 


TVP£ a?2 

0363 

82 

C 

C^'TInJE 

0364 

90 

.TInUE 

G365 


Oil 92 III 

0366 


NE-LApd) 

mi. - 

91.. 

C7 TIy'JE 


PB06BAN EXIT LOOIC 


CALL FLaPSP (II» 
type 917 

accept ePo,t*EYiN 
CAI.L r'<2NT{<PVlN,2^) 


IFfavgTi,?,PJ. 'PMC • T 0 1 

uTa^|wr,fTpTMG ' T* 91 
IFfgNETwi^.PO, **» )G * TJ 91 
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TBRTRAN IV- 
INIT.FTN 
0376 

MZ7.. 9l cgNTihi ui 


PLUS V02«04 

/TB|9LeCKS/WR 
T0 90 


15132124 


14.jUL«77 


PAGE 9 


0378 

0379 


0380 

nil 


0 

0jS2 it 
6383 
n3P4 
P3B5 
0366 


0387 


!NCLUDE*C300i33C*MSAVE.I^'C> 

-9PMjyNlT«4|NAM6«*C3OO|13Gi.0BAL’,TMPll',r0RMi*UNFBRHATTED», 

TYPEi'UHKN8ik^»,FPR»9999) 

diUEipcr 

HRlTEa>C2 
_ «iPlTg(i)C3 
-piTE- 1)C4 
wPlTi ,; 5C5 
CLjSf ;uMltei) 


9999 


T ** 
Ul 


tvdP QQon 


9991 


* 9S_95_ '.''Ptf! Failure C3OO,nGL0BALiTMP-»N0 RESTART!) 

0369 • 9991 C^MlNUE 

19 , CAJ.1. sETEF(50) 

0391 ST5!P 

-.0392 901 format (« TME Fi»LLk ll F:S HgPES FgR INITIATING SEG MENT ANALYSTS t 

1»*AVAILaBlPI'/4X,'1, (S)0RmaL SEQPENT analysis INITfATlBNt/ 

2^r*L?» (R) FSTART SEGh ENT analysi s af ter system CRASH*/4Xf 
3 i. E(X)IT SE8HEMT AMALYSlS'/'SlNPUT EITHER Ni Ri 0R X >') 

0393 9J? f 0RHAT< 'JI\PUT SEGMENT NUMPgR*F0UR (4 ) DIGITS REQUIRED >t) 

0394 9J3 raPMATO Yf*U HAV? ' REaUESTEr SEGMENT N0,'«2X«4A1/ 

1* disk pa ck CBvTaININ' G data F2R THIS SEGMENT IS N0T CURRENTLY 

2Mtii)NTEWr bg YalTTFlSwTHE'DTlK pack F0R SEGMENT N0, * i4Aii 
3' T9 9E M0uNTfcD?*/»Slfy|PUT cITHgH YES 0R NR >•) 

0395 905 F0RmAT(* Y«U HAVE REOUESTEr^ SET.MENT N0, *4A1,» WHICH IS N0T CURREN 

ITLY liM the SYSTEM*) 

0396 906 FgRMAT( ^SI^^PUT ANALYST NAM? - 00 N0T EXCEED 10 CHARACTERS >») 

0397 ?C7 F0RMA T( * DO Y0'j QESI PE PER-ATJE* T FILES 0R TEMPORARY PILES F0R ANAL 

lYSlS •/•IIK'PUT P* T >' ) “ 

0396 90p. PFJBHATf* TwE OATES SF THE TEmP?HaRY CLUSTERING MAP AND THE TEMP0RA 

IRY'/’ CLASSIFICATION maP A*=D TmE TEMP0RARY STATISTICS FILE D0 N0T 
2MaTCH«/i Fi.'RTHER PRCCESSlNr, i*F THIS SEGMENT IS PR0HIBITEO, * ) 

0399 909 F0R,-«4T(* field® OEFIMTIRN FILF DEBS NPT EXIST F0R SEGMENT N0. » 

14A1 ) 

0400 9ir F0R.'»AT(* AM FRR0R .-lAS 'ENC0'1 NTBpED WHILE ATTEMPTING T® LB*0 THE FIELD 

1 DEFINITI0* */' FILF F0R SEGMENT *4Al,*, FURTHER PR0CESSINQ 0F THIS 

2 segment is* /• PROHIBITED*) 

0401 911 F0RmaT(* field DEF1NITI0N FILE L0AOED SUCCESSFULLY*) 

0402 912 F0RMATC A‘ ERR0P %AS EnCE^InTErEO WHILE ATTEMPTING T0 L0AD 0R */ 

__ 1_’_?UILC' The T0T DATA FILE F0H SEGMENT *4Al./* FURTHER PR0CESS1NG 0F 

2 THIS Segment is pp|i*HiB]T£n*) ' ‘ 

0403 911 F0NMAT(* D’iT oat* FILE L"'A''6D RUCCESSFULLY ' ) 

0404 914 F0RMAT( *«0PTI0MS PFMAI'iING APE <C)0NTlNU8, EIX)IT, (R)ESTaRT>*) 

0405 917 F0PMAT(*S (H)EST>RT MH E(X)1T >') 

0406 932 F0PmAT< 1X, 'SEGMENT LR, ■ • , 14, «)(, «OlSK PACK IDENTIFIER ■ *,|4) 

0407 933 F0P(^at( tOSEGME.iT LAST w0RkED By ANALYST *,5A2) 

<1408 934 f0Rmat( *DTHE FULTnITiq a? T' BarE TILES' eiiST F0R Th| 5 SIBREimv 

l//,6 X, • image Data* ,6X, *aCQUISIT10N DATE(S) * ,6X, *OElETE FLAG*) 

0409 935 P0RmAT<28X,I2,1X,I3,18X,a1) 

0410 936 F0PMAT(/5X, *PEPmam?NT CLASSIFICATION RESULTS'/, 12X, *REFLECT ERtPS 

1 date* , 6X. I2,X, I3,/12X. 'LAST I-lOO REW0RK DATE* ,2X. l2,Xi 13) 

0411 937 r/P-ATC/SX, *TE mPORaPY CLASSIFICATION RESULTS*/ 

iiix, fcLASStFiCATi0N MAP" EpIPS^DaTe »,|2,-X7J3> 

212V, 'CLUSTER MAP * , CX, * ER I PR DATE •,I2,X,IS/ 


PA(iK ij5 
tKxni (H'ALITY 
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FB'rTRAN IV-PlUS V02-04 iSl32l24 i4«jut»77 

INIT.FTN /TRlRlgCKS/ WR 


PAOE 10 


0412 

0413 

0414 

0415 

0416 


312V,»STaT1ST1CSM0X.'ER1PS OAtI M2iX«!3) 

93 R reRMAT </' 00 /DU ripuns • last update M 2 iXi ! 3 ) 

939 P0PMAT(/' D0T 0ATA'|5Xi'« LAST UPDATE 'itatXilS) 

94C F0PPATPOALL FILES TRANSFBRREDO 
6 G 0 FeRMAT(aOAl) 

eol F0 RWAT ( * ...JMTIATE SEGMfehT AKAI.YSIS MODE REQUESTED IS OTHER THAN 


0417 

0416 

Mil 

0420 


402 

803 

605 


1 N. p, 04 XI TRY AQAIWM . , 

format (• ‘MAI,* illegal segment nUHRER •- must BE FOUR INTEGERS ^ 
I TRY again* ) 

F0R!-AT<* ERN6P PNCBUNTbRED IN TRANSFER 0F TEMPORARY CLASSIFICAT 
lI 0 U ‘^aP') 

FBRm ATI t P£gMANEVT CLASSIFICATION .MAP DOES NPT EXIST*) 

F0RMATC ERRPR EMC’UNTERED IN TRANSFER 0F PERMANENT CLASSIFICATION 


1 MAP* 


0421 

806 

Format ! * 

ERROR 

enc-untered 

0422 

807 

FORMAT! * 

P?RmaneaiT CLUSTER 

0423 

408 

FORMAT ! ' 

ERROR 

encountered 

0424 

,_4Q9 

FliRHAl.! * 

ERR?>R 

EMC-iUNTEREO 



IK !RFCf*RD 1)*) 


0425 

810 

format! * 

ERRJIR 

ENC’^UNTERED 


IN transfer Of temporary cluster MA«»*) 

MAP DOES N0T EXIST*} 

I‘1 transfer of permanent cluster map*) 
IN transfer of temporary statistics fil 

IN transfer of temporary statistics fil 


lE* ) 

0426 811 FORMAT!* PERMANENT STATISTIC? FILE DOES NOT EXIST*) 

0427 812 FORMAT! « ERR^R ENCOUNTERED IN TRANSFER OF PERMANENT STaTICS FILE ! 

1 REC 0 RD 1 >') 

0426 813 F0RMAT!* ERRPR ENCOUNTERED T' TRANSFER OF PERMANENT STATISTICS FiL 


IE*) 

0429 614 FORMAT!* ILLEGAL FILE TYPE— TRV AGAIN*) 

0430 415 FORMAT!' MTUNT TME RIGMT DISK anD HIT CR*) 

0431 91a FfcRHAT!' MUST ImPLT (Y)ES 'R !0|?*) 

043^_ 31.7 F^-V.MiT! *. ERN«*R TRA' SFERR I U'; TMt DIRECTORY FILE') 

0433 >419 Format (* 'J0PEN ERRiJS' **30A1) 

0434 813 Format ! *OGL0RAL,TMP ERP0R'» 

0435 P20 FtjRMAT!* THIS FILE U£"ES FXlbT > *,30Al> 

0436 821 F6PMATII4) 

0437 82? FeRMAT!* TEMPBRaRY STATISTICS FILE DOES NOT EXIST*) 


0436 - - E-N3 
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e. INITIATE SEGMENT ANALYSIS 


INITIATE SEGMENT ANALYSIS 




II ■ 1 

CALL ELAPSE (II) 


/ INITIATE 
I TIMING ROUTINE 


TYPE 902 ACCEPT 4 DIGIT 
SEGMENT NUMBER. X, OR B 


CALL CSGOPH 

(S. PAGE. TITLE. 45) 


/ CLEAR SCREEN AND PAGE 
1 NUMBER AND TITLE 


INITIALIZE COMMON 


INITIALIZE THO GRID 
FILES TO ZERO 


TYPE: DISPLAY 901 
ACCEPT: R, N, X. OR B 


--XD 


TYPE: ERROR MESSAGE 801 


TYPE ERROR MESSAGE 
802, SEGN 


INSERT SEGMENT NU‘«ER IN 
ALL FILE NAMES 


CALL DSKCHK (ISEG, PTR, 
OSKPT, FLAG) 


TYPE 905 SEGN 


READ ALL COMMON 
FROM [300, 1] ISW • 1 


m 


















































8.1 SOBROUTIME FTBNFR | 

>0RTR AnITv-PlUS" V 02- 0 4 lSl33lSl ‘ TR»JUL«77 PAOE 14 

INIT.FTN /TRiBlACKS/WR 

C THIS SUPRiUTlNB T R A N^FEF A TTCl 

JOOl SU BRgUTlNE r TRNr R(FIL61N.FlLgBT»NR.KRH.MR.PLA0) 

C NRaNUMBER PF RECPROt IN THi FILE 

_ C __ _ LRW«I.EHTH PF each RECERD <W0RD8I 

C HRsMAXlMUH NUMBER 0F REC0ROS 

Q002 byte FlLElM{g 7).FIi.EPT(27) 

0003 INTE6EH BUTiARRAY(Q99)iFLA0 

f»0O4 - . . _iRWlKaw/4. 

0005 JRU«LrU*2 

0006 IN«7 

0007 PjjtiO 

OflJLfi. im.^'T»l—.- — 

0309 0PPINT»1 

ncio Py:.N(u*>lTMN,NAMF«FaEIN,TYPF»«0LO'|ACCESS«»DlRECTt, 

1F0Rm>»UnF 0RMATTED' .ERRB2iBiTrEPCeUNTBl|RECPRDSl2E«|.RW,HAXRECBMR) 

0011 gPiNlU^lT«a'UT,MAME«FlLE0T|TYPE«»NEW»,ACCESSf»OIRECT‘i 

lERRa3,)^EC0RDSI2E«LRH«MAXRECB*<R) 

.niZ . .._Riijimi!iPPLNlaE?Rj2MARRAYn)iI«liJRW) 

0013 yRITE(RuT'CPPipJT,ERR*3)(ARRAY(I ), l«li JRW) 

C014 IF<IP01nT,GT, 10)81? TP 6 

•J315 o C0\‘TlNUE 

0016 1P?1\T*IP0INT*1 

0017 BPPI’.'TsiPZINT 

0018 lFn P3t^T«LE.MP)GB TP 1 

0019 FLAG«1 

00?Q 60 TP 5 

0021 2 type lOi 

_0022 80 T'-’! A 

0023 3 TYPE l02 

3024 4 FLA^«0 

0023' 5 CLPSE((j'glt«I»',DISP'»SB«'SAVP») 

0026 CL''SECJ-jlT«0UT,OISP0SE*'SA\'E' ) 

0027 FETURn 

0028 lul FBKVATC REA'*- EPPlio*) 

0029 10? FiaRrtAT<' WRITE ERH’^K*) 

..5S30.._ - 


8-16 



1 


' 8.2 SUBROUTINEIMTLZB 


reRTRAN tv< 
INIT.FTN 


PLUS 


0001 

J0M2. 

0003 

MM- 

0005 


VQ2.04 

./T.R|.SLgCKS 


MK. 


15|33I36 lA«ijUL«77 


PAQE lA 


_flMA 

0007 


0008 

oap9 


0010 


0011 

1012 


0013 

0018. 

0C15 


0016 

Tci> 

00l<* 


0019 

0021 


0122 

0023 

0024 

0025 


.ll.- 




C* 


SUBRRUTINS I TL2B 

include 'SYie3OOi3]CAMSC0fi0N|ItuCi 

.IMLUAl^'lYillOlLtSlC Af4SPARAn . 1 nC • 

parameter HAXCAT«60f HAXSUei60fM«xCHN«4|NPIXai96iNLIN»ll7iNAXrLDa50 
l.MAXVill.NJgTSa209.DLSKlP» 10.DSSK lPai0.MAXAC Di6« HAXAeC Mi 
2NgSPW0B6»N20TWDil0 

fcflUlVAlE N CE LC1^AC3ATE)4IC2 «ISeG)«(C3<PPLA6}|{C4iTX1)i(C5iDI8KID) 

INTEGER C1(469).C2(256)iC3(71).C4(348),C5(629) 

‘ ' integer ACnATBVsUdCAT.SURP’PiCATKMiCATTH 

9YTE CHMVEC.NeCHAN.N<1SUB.O?TCAT«PeTC LU 

C0MMPN/c8Ml/ACOATE(2.MAXACC}|CMNVEC(MAXCHN|HAXACC)<N0CHANfN0$UB* 

.J31J£CAUmAXSUR}4SJBPEP(»'AXSu6)iCATKNT(MAXCAT)iCATTH(NAXCAT}|N8O0i 
2N0Du»N0TH,niaTC«T(Nn0TS) ,D0TCLU(ND0TS) 

INTE'GER~ADATFS.SUNA2.ANALST,FLOeAY.O0TDAV,PO4TEliTDATEl 
INTEGER PDaTE 2.TP*TE2.PDATE3. TDATE34CATNAM. pl SX U iJIA!!!10Hj SRI fi 
PYTE p?L^Lr,,NiaACO.S0ILGRiS'.'NFLtNSTART,NTYPEliALPiALP0 
BYTE.. P5TCT,PlTCT?iJ/ARiYAR0.DLA9feL. TYPE 

C0MMP.N/C^’M2/IS(^aiLFLFLC|N0«COi aOATES(2iHAXACD)*S0Il6R(HAXACO)i 
lSg'.'EL(‘^A’fACD),SUNA?(MAXACD), I hpATE (2) # ANAL8T(5) » FL0DAYI2) i 
2r0TOAY(2 ),' START, NTVPEI,pDaTE1(2»iT0ATE1(2)iP0ATE2(2)iT0ATE2C2)i 
3PDAT^3( ? ^,TDA T g3(2),^eCAT.^AT^ A^*(MAXCAT),ALP(MAXCAT)lALP0| 

A PCTCT(maxCAT),PCTCT0. VAR(MAXCAT),VAR0 


c* 


integer EFLAGl,E^L^G2.EFLA''-3,ErLAG4,EFLAa5•UPLA61,UFLAQ2lU^LA6S# 
1‘)FLAG4 

INTES'EP ®rLAG,DSKMMT 

C0‘^^?iv/C? M. VPrLAf5,r^SKM ».TiEFL AGi,E FLAO2,EFLAG3,EFLAG4iEFLAG5|UFLAQl 

l,OFLA!sTrQF5.AG3,'jFLA54,-*;fwLAB(MAXSL9) 

INTEGER TXl,TYl,TX2,TV2,AC''lSP,G,B,DTWINO,O0TARY,6MlN,SKAX,FUL 
INTEGER SpviND.CLA AD,CLUrt^D 

:0MM7N/ri»M4/TXl,TV{,TX2,7Y7,IXl « I Y1 1 1 X2, 1 V2, ACD ISP(2) « 1 1 1 (4) ; G(4) « 

1% AAMT'ink eB!Jts.nfa \.iBeAL.nt tLii.i9kifi#^i.ikiiiAinfllV. 


lR(4),uTk'!NO(5,’:,^r?T'^D),SPA'r ’D(5.NRSPI»iD),IHWlNP(4)|NUMD0Ti 
2 DaTAPY(\? 0 TS),GMliv,GMAX,Fui '( 2 r.CLAWND (8 ) ,CLUWN6( Sl 

m m». n . b » A 44 « . . •« « « A % « » 9 n « • A k Mi JklMAVI 


r i M'VTd) f p \ ^»7 i ibLAWniDIO I 

C0mm»'n/C0M5/5ISK1D,RaKP0*i('D7T<?) ,GRIO(ND0TS) ,DLABElIRD 0TS)» 
lfVPE(NOPTS),PErLflC 
PI^ENSla^ PAND’'M(Nn(rTS) 

INGLUD? •SVir3OO,33PANP0M,nAT' 


0026 

~mr 

0028 


IiMvUUOi* ' 

DATA PA:«O0M/2O% 67. 206. 14, 127,99,351 196, 191. 95, 66, 197, 122, 183, 
1114.61,80,266,30,90,172,199 TTIoTW nr ,44 ,T3F7 174 497121 TW 7X84 , 2 < 
2112 . 132. A. 1 61 . 43 , 6P, 150, 63. 20, 198, 94, 39, 86. 125, 118il04. 134,82,1851 
315, 147, 157, 77, 75, 161, 3, 76, 107, 202, 81 136, 73 , 89, 152, l3»207i 153, 9, 
4175, 33. 3?. 24. 162, 131. 42, 16. 49 , 203, 36, 1,155, 96, 87, 193il71i50, 19, 70. 
5120, 164, 68, 54, 194, 61. 93, 166, 173. 22. 105, 160, 115,5,27,46, 12, 38, 16. 
684, 78, 28. 294,124,601 176, 106, 144 ,14316,141,72,59,10,201,711 190, 107. 
7 i 3 o, 40 , 06 . 146 , 102 , 31 , i 62 . 13 >, 62 * 177| 138 , 167, i63i5i,54i 129, 151 , T86. 
8113.119.23.52,21.109.150.105.29.145,55.209,108,92,117,64,97,79, 
^Vi, 45, 12«, 165,26, 116 , 53, 139, 164 , 111, 160, 7, 47, 11,148, 85, 154, 58, 74, 
4192,169,123. 98, 176,140. 205. ml. 65, 103, 57, 126, 179, 142, 83, 156, 25. 
818^9, 133, 170,100,41,149,159.37/ 

00 5 t«l.469 

CKDiP ' ~ 


C0NTINJE 
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I 


F0RTRAM IV< 

INIT.FTN 




PLUS V0S«04 


/TS|Bl0CKS/UR 

TirriiiTin — 


l5~t3S|S6 l4«juL*77 


PAOi 17 


^30 6 

0031 

0032 7 
00'33 

0034 0 

"ff055 


0036 

0037 
003« 
0039 


0076 


0077 

0078 

0080 

OOOl 

0082 

0083 


C2(l)a0 
00 7 I«li7l 
C3(U?0. 


8 laii34B 
C4(1)«C 


9 I*l»629 
C5<n«0 _ 

00 1 |■^lND0tS 
RANOOii(I)aRANDRn(l) 
KaRANO0H(i) 


0040 

^ QRlD‘i<>*I. 



D0TARy<I)»O 


0042 

1 C0^TIl^iUE 


0043 

00 i 

I«li469 

0044 

4 C1(I)«C 


ff04§ 

SPwiMD(i#l) 

■ 0 

0046 

SPw 

MD(2il) 

■50 

0647 

SFw" 

^0(311) 

■ 269 

0048 

SPi- 

V0<4il) 

■ 132 

0049 


^OtSil) 

«S7l 

0050 

SPW 

^■0(1 1 2) 

■ 0 

0051 

SPw~ 

V0(2ii) 

■ 204 

0052 

SPw 

^D(3i2) 

■269 


5P7 

M3(4»2) 

■ 306 

PC54 

SP'w 

MD(5»2) 

■ 371 

0055 

SP* 

^T(1•3) 

■ 0 

0036 

SP-. 

n:0C2«3) 

■ 338 

0057 

SP'-« 

V0«3»3) 

■269 

0058 

SPw 

NP(4|3) 

■ 460 

0050 ' 

SFiJ" 

ND(5>3) 

• 371 

0060 

SPWIV0«1»41 

■ 0 

0061 

SPuivp(2,4) 

■50 

0062 

SPwIND(3i4) 

■ 360 

0063 

SP'WIMr(4|4) 

• 132 

0064 

SPW 

^0<5l4) 

■ 495 

■OOTf— 

5^ 

TFfTTT) 

■ 0 

0066 

SPW 

fvD<2»5) 

■ 2C4 

0067 

SPw 

MD(3«S) 

■ 389 

0068 

SPW 

NCUiS) 

■ 306 

0069 

SPW 

ND(5»S) 

■ 49P 

oo:‘o 

SPW 

MD(li6) 

■ 0 

0071 ■ 

SPTT 

KD<2»6) 

■ 358 

0072 

SPW 

WS(3«6) 

■ 389 

0073 

SPW 

ND(4«6) 

■ 460 

0074 

SPW 

^D(5l6) 

■ 49P 

0075 

D0 

1 I'iiMAXSbS 


N'E'«LA4(I)iSURCAT(n 

Txm 
TViil 
TX?»196 
TY2ill7 
IXliC 

mi?o — 


0004 


IX2>391 



PAQE II 


t 


reRTriA!^ IV 

init.ftn 

•Plus vo2-04 

/TRiBlICk8/mr 

6ois 

Tyatisa 

IQJI . 

Dl 3 MliS 

0017 

00 3 jvliNPDTWO 

0086 

OTMjNQ(iiJ)a0 

0089 i 

eiNTlNUE 

0090 .. 

!M41NO<l)iO 

0091 

IHWtN])(2)«20 

0Q92 

tMWINQ(3)a391 

0093 

ln41N0(4)a253 

0094 

NUMD8T*0 

0099 

rUL(l,l)«0 




0097 

FUL{1,2)»0 

0098 

rul(2i?)Bl?8 

0009 

rUL(l,3)«0 

niOO 

rUL(2.3)»13b 

0101 

PUL(1.4)«0 

0102 

FUU2*4j«64 

0103 

rUL<l,5)*0 

0104 

PUU{2.5)*100 

0105 

FUL(l,6)«0 

0106 

PUL(2,6)»120 

0107 

rUL(l,7)«-5 

QlPJi 

FVL<2j7_i«9C 

0109 

EFLA64>0 

Olio 

UPLA6l«0 

0111 

UFLA62*0 

0112 

UFLAQ3«0 

D113 

UFLa84«0 

-0U.4 

9|TU4S 

0115 

END 


l4.jUL»^7 
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9. IMAGE DZSPIAY FULOZti' 


H^^•HTRA^ 1 V‘ 
rUL JlUiTT^ 

ocri 
eoc? 


13136112 31-AUO-77 


»*A 06 1 


o:r 3 

o ;04 

or 6 

OOP? 


coo.' 

COPV 

POlii 

ocu 

PCI ’ 
0:1 j 
p?i < 
r : 1 ‘.t 
on £ 


CC 17 

OOlo 

OCly 

O 0?0 

03?1 


OJ?'- 
C::^ J 
PCT 4 
0 C ?6 

r:;>^ 


0027 
C w 2 d 

cor? 


C 970 

oon 

0 C 72 


C 

C 

n 
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P|^uS V<^ 2 * 0 ^ 

/7R»«L'^CkS/‘'R 
RRPIRa^ rULBlJ 
iNCLunt ’SviruLtf iCR'',c 

This v£RSI*n »r is TATLanso T** rgL®iSiANO ruLSMt 

th^ HYSPp ra change T0 the rte veRSibns, set 

\C'*aT T8 64 ANO r»'A_N5E T-<656 C0 hmE'IT?i 
' IrtPUlCiT I'vTFGFRIA • M) 

PaRA*iL 7BR ►iC>^AT«<K 
HEAt Qfii.RPAC|X?,V2 

riTTE r k*r,vr.Li'’OF#L&L»LGP#wn.»HFO,CML*CMP»WC|HXC*LUT 

C^r*M7r,' /FC7M/FlLfir^3)»“C(5>.'^CL*HGF»LGLiL0F.MrL»«FG»CHL<NCMAT), 

1 CMglH5<AT),MX«;{MC-AT,S),Nr,Fll»HTxTFG,TUMT,TUN,FLN»F«RH, 

£ TTAl ,TTTI,TTX2 ,TTy 2, IIXl, 1 lYl, ilX2i llY2.IX(91?)i 1Y(S12)| 

3 Tx(>12>»TV(*)l2)»f'X,M''i 'X,XC'AX,L08C(9»3),LUN|Ge(NCMAT*l,9) 

4 ,L JT«296,5).^C»J»BFAC.XA,Yt 

C'’ ‘-1 •./Hr/»'/^S,SC|LS,L‘=i RPDS»^XSP»«NCPR|N'»Pr, ancLi 
I *X.vS,-dIT,pi»I.^rAP,?V-',»Sl<,PSKlPiHS12»CALP.CEPP 
/PATAL/€<J|f'P 
7 iifLP/P.i,P 

iNTEf f J FC'M??^?*??* J' iAl/?),MCflf»(23) 

EQiJlvii.L' C- (FrC‘ (0,FtLf )) 
fcOwT'A'-^^ '•C' ( hTiu MDiS?) 

fjri ; ?Ht(. c* 

*sv I r..j,i j,:mca>';pah 1 ' c* 

OA»A' •' '•AVC/ AvS';t«6‘', ‘'AxCMN»4,HPIX»196,NLIN4117|MAXFLn«90 

l,MAX''»lliN'.TS*2''>'.iLSKlP»lJ»C?iiKlP»lO#MAXACP*6*MAXACC«4| 

E3ul 'ALfc -'T?. CCt, AC'ATt) * (C’» ISFG)# (C3 iPFLAO) » (C4| Txl) * <CS»019KID) 
IMFPf Ci(4fr9),r2(296),C3(7l),C4(34«)iCS(629> 


ACPATL, at-'cTAT, 5U'>P"'PVC.l7)<M»CAttH 

•HAN,.sf*Sil.B,w 'TCAT#P2TCLU 


, * I'l 


BYTE TCAT#P2TCLU 

/ AC -.ATfcli. -AXArr),CH\VfeC(‘<AXCMH.MAXACC),t«(!CHAN,M0SU'*i 
lSU9"4T(''AXSii3) ,S.iB‘-';'P«^A>S ;8> »CATKNT(MaXCaT)|CATTH(HAXCA 7) iNPDPi 
- . TS) ♦''iTCLUf '•PKTS1 


2 N 0 Oui 


iNtg 


r 


Aj4TrS,s')!.'2, A' ALStiFtrDAY.Di^TDAY.PDATFliTOATEl 
l.YTer-i:'' POATC-2|TnATk?,POAT‘^3, T"ATE3*CATMAM,O1SXID«PAMD0H|6R1O 

BYTE FL".i^'«!AC'!i^i’IL'’*<iS» APL,'^S7 aRT»MTYPEI» ALPf ALPS 

SYTE prrCT.PCTCT", VAR,'' A?;*, OLA JBL, TYPE 

C0*<Mr .• 1 :aTPS(2,*1AXAC0 ) •SPIlOS(MAXACD) . 

lSu•'EL('4*<Af:D>»?U^AA(•'AYAPt),I'‘’'ATE(2)»ANALST^5)»FLnOAY(2)» 
25^-TOAYn), iSTATt, v-TYPcl.PO. Tr:i(2),tDATFl(2).'»0AT62{2)»T0ATE2<2», 
JPjATr?(2kTPATt3(2)#f-P'‘A^»f^AT\A''{»«AXCAT)| ALP(MAXCAT)# ALPS# 

4 3CTCT(mavCa 1 ) ,PCTCT;, VARtMAXCAT) , VAR*? 

iNTEtif a F.FLA01,fcFL«tj?it FLA-.3it4 L AG4 i EFl AG5 • UFLAGl# 'jFl. AG2 1 UFLAGS* 
UFLAP.4 . . 

■T\TPrF’< ®plaG» T 

CiiJYkiP.^/r *G» "*5“ 4'* T jErLAGj iEFLAG2»EFLAGS*5rLA64»EFLAG5i UFLAOi 

l,OFLAr.2,0'Ft.AG3,UFL4a4, ;t.X‘0<HAXSL») 

ir.TE'lE'’ Txi,TY1,TX?,TY2, aC" ISP,G,B,DT4INO,P0TARV,6m 1N,GMAX,FUL 
I\TE&e^ Sp-»I‘'D,CLA,t.O,GL' >• '0 _ ........ 

’ \/C '"“4/TX1,TYT*TX?.TY“, fxi»ivii]X2,TY2, aC 01SP(2)» niC4),GI4», 
lB(4),DTul^''^4,^3PT■.r).'^P• I - O(9,'4fl8PWO),lMHlNP(4>|NUMD0T, 

2Di1TA''Yl v. G‘'Ai , FyL (?*?>• CLAWNOI «) i CLUWNOI 8) 
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F2RT«AN 

0033 • 

• 

0034 

0035 

0036 

0037 
C038 

0039 

0040 
OC-1 
0042 

0C-»3 

0044 

0046 

0046 

0047 

0048 

0049 

005 0 
03?1 
005^ 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0362 

0063 

0064 

0065 

0066 
0067 
0063 
0369 
007C 
0071 
007? 

0073 

0074 

0075 

0076 
0C)7:» 
0073 

0079 

0080 
0031 
0082 

0083 

0084 

0085 
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fTji ^ajBLe.cJis/iia - ■ 

C0MMCN/C0H5/DlSKID.F<ANlj2'‘(''D2iTS)i6PlD(^D7)TS)|OLABEL(ND2TS)« 

lTYPEfND0TS)iPECLBC 

BYTE OAFT(9)iTlH<6)irRr.Lt>.E(74).SMrLiHREC(3060)iBtjr<3300) 

- . UlTEfiER D0TS(2.2O9) 

EOUIVaUEnCE (DPTPtl.Dii# F(D > 

£flilIVAli6.NCEi9UFM.3)|HR?C(l)) 

EQUIVAUE^'CE(RUFW.3UF(ln 
PEAL GA1N,A2iA3 
PYTS L'IC(9),FXT(^> 

BYTE 0EV(5> 

integer Al,J,Tfl,S,^LlL:^14(2),LU^!^•LuTAB(lO), 

-i. BilFSliJiUF£10,vCPil.lF.ICH.TlilPiSHFGiPRTYi£2r 
data DAET,TIM,SHrL.SHFr-/l/«» S'V'.O/ 

oata iP.LP/e.s/ 

PATa SfL'lNN/OiO/ 

PATA FULCJI4/3RFULi3»^I4/ 

DATA f»:JFaiG.TI.PRTv,eiar/l0C0fl,6.0,0/ 

HAlA ElL£miFILEl2)^i’lLL{3)*Fii.E(4).riLEI5)/»M'.*T',iO*,i|«,o/ 


6051 


data iiic,exT/«c*. 

1 'T'.C/ 

data cEv/«D*,»P*. 
Nf a 5 

02 6^01 I * 1|4 
SBlNOr'ATtLiDtQ 
UGBC(l»l)al 
LGPCC l»2)»20n 

1*3)80 

Dii 6'-’0l J a 1,NC 
MXC( J, 1 )aj 

LGrC(4i2)a40C 
l,GPC(5*i)eO 
RWP a 0 
Fll a 1 
mTXTFg 8 0 
TUMU a 0 
tlpI a 'l 
FLVI a 1 


*3* 


, • n t , I n * . * , • 




*D*. U», 


• 0 I • / 


AT 


F0RM 
TTXi 
TTYl 
TTV2 
TTV2 
IIXl 
IIYl 
1 1X2 
I 1 V 2 

LGL a 
LGF a 
MFL a 
HFG a 
MGL * 'N* 
rUiF a 1 

_ PAC’L a 
PARSai 
nSETF a 


1 

•1 

1 

512 

512 

0 

P 

511 

511 

•y' 


I 


FfcRTRAN 
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FUL0i;5. 

rT;S 

/TRlBLeiCKS/WP 

0086 


ATF ■ 1 

0087 


9FAC • 0. 

0086 


D0G a 0 

0069 


MY • 0 

0090 


MX » n 

0091 


. . 

009i^ 


LCDF*'V* 

0093 


LC5Q»C 

0094 


J«1 

0096 


P3 3C01 1 » liMAXACD 

0096 


IF(ADaTES(1i I )-A nATES(l. j))3001,3002.3Q03 

0097 

3002 

l£(Ar/iTES<?,l )‘.LF,ADAT5S(2, J))5g T0 300L 

009R 

3003 

Jil 

0099 

3001 

C0MTIvI'E 

OlPO 


ACKrja J 

oini 

1 

IF(n5ETF,ME,0)CAl-L UL'SFT { 1 , Fll , 1 ) 

0102 


nSFTF.O 

0103 


CALL CSG:iPHC 10,PA(.F, 'MAOt DISPLAY l,Q 5/2/77«|24) 

0104 

3ono 

IF(TI .eo.!/-) WRIT!:(I.-'.4O0 ^)?SfG, (J, (ADATESn. JJ 1 1«l«2)» 
1 Jil^MAVArOfACR^ 

0105 

4 L r c 

FZCmatC FPP SFG --i:f T ' , I * ^ELECT 0ME 0F THE F0LL8WING»/ 

1 lax, ’AOGiaSITpN IjATES F:*R image DISPLAY*/<MAXAC0-1M18X, < 

2 11,') • , I?. 13/). ’ JM7X. • ( Ml, • ) », 12, 13.10X. 11, • > •: 

01C^ 


CAtl. ulNn''.LI'E,TI, in 

010/ 


G0 T'^ (9401,l,l,3C0O,3''l)-i,3un5), IF 

OlCfc 

3(i03 

IP S II 

0109 


CALL iXTFFdP.Ll -t,74, n 

one. 


IF( I I ,GT,^AXACU)GI^ T0 3000 

0111 


ACKV t I 

0112 

3004 

J s /4 

0113 


K * isEG 

0114 


L « ApATcsaiACH ) 

0115 


M = A-i4TPS(2. ACK ) 

0116 


03 3f'0«> I » 1,3 

0117 


N c M.(M/in)*in 

0116 


M « M/lo 

0119 


J s ,j«i 

0120 

3006 

FILF< J)*‘i*''60 

0121 


C? 3007 I » 1,2 

0122 


» L-(L/10)*1!' 

0123 


U s U/10 

0124 


J * J»1 

0125 

3007 

FIL£(J)*^'♦"6n 

0126 


00 3''05 I s 1,4 ^ 

^ s i<-<K/10)*10 

K « K /lO 

0127 


0123 


0129 


J ■ J-1 

013D 

300 3 

FiLfct j)«-''*"6n ^ 

D0 3'’’30 I ■ 1,9 
FILbC l*5)aUICm 

0131 


0132 

3030 

0133 


00 303^ 1 ■ 1,5 

FRF( 1 )»ntV( I ) ' 'V 

0134 

3037 

0135 


00 3031 I • 1,5 

0136 

3031 _ 

PJ(,td*23)«EXT{I ) 


0 

«i'RITF( I0,45nfl) (F!LF( i >, I«l,23> 


r-4500 

F/PmatC *,32A1> 
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0137 
0136 
0139 
014D 
< 0141 

-11142 .. 

30fl9 

MF«24 

_ SMEfl-a -t 

PRTy ■ 0 
- Fil f J 
P0 Rm # 1 

0143 

4001 

F0RmAT{»*LACIE defaults ? (Y)fcS/{N)0 > •) 

0144 


_filLkXlM10*LlN£.Tl,IFJ _ 

014S 


63 T? (9401i3000. 1.3009. 3010. 30ll)iIF 

0146 

3010 

LlN.£(l)fLCDF 

0147 

3011 

LCDS « 1 

0140 


Ta.-4fl2 

0149 


IF<LI^E(1).NE.»Y•) GO T» 3009 

013C 


LCDG a 0 

0151 


^CM4X»4 

0152 


TTXl A 1 

0153 


TTYI a 1 

0154 


_ ..TTX2 ■-126 

0155 


TTV? a 117 

0156 


11*1 « 0 

0157 


Iiri a 20 

0155 


IIX2 a 391 

0159 


1IV2 a 253 

01^0 


D3 3023 I a 1.4 

0161 

3C?3 

L3PCU.1)*! 

0162 


L6RC(5il)»0 

0163 

50? 

1F(DSETF,E0,1)CAI L ni'SFT(l.Fll.l) 

0164 


CALL CSET(1.F11.FIL£.*'TxtF6iT^N1T.FF.1) 

0165 


OSFTF ■ 1 

0166 


CALl hR£AD (1.HP£C.5L'F, 3060. FcPm. F ill PRTr. EPF. SMFG) 

0167 


IF<CGrR.60.0) 6070 303 

0165 

504 

wrITE(I3.7000)CERB 

0169 

7o^n 

rpWMATC CATASTR««PhIC ER90r MOKWEfi ’.15/) 

0170 


r.itf 1,7 

0171 

505 

CALL lOUSET(l.Fll.l) 

0172 


ijsftf « 3 

0173 


63 3009 

0174 

50.5 

C0VTIn'J6 

0175 


IFdCoG.CQ.O) 60 TP 902 

0176 


IF(TI ,EQ. I?) 4RITEn7|5050)NC#SS.SE,L9 

0177 

8050 

F0RMATC TwE data mas '.12.' CmANNELS*/' TME START PIXEL : 
^ 1 Tt-E PIXEL IS 'tI5/» THE START LINE NUMBER IS M5/: 

0176 


IF(pASS,'''fc.l) 6D TP 6 

0179 


PASS»PASS*1 

oiec 


TTXl a SS 

OlPl 


TTX? a SB 

0182 


TTYI a LS 

0183 


TTY2aLS»511 

0184 


iF(SB-SS.i\E.l95) G<^ T0 6 

0185 


TT''2«LS*116 

0166 


IIVl a 0 

0187 


UYl a 20 

01«8 


IIX2 a 391 

C1P9 - 


. 1I.Y2.1 .213 . - - 

C190 

6 

IF(Tl ,Ea.IP>WRITE< tZ.8006)TTXl.TTYl 

0101 

8306 

f0omat(»*upper l5Ft cbfrcinates 0F Data base image • », 


•15/ 




■■■■Jt'- .,■ . 
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1 I5i» '.*• M5.‘ > ») 


0192 


CALL LlN(I0iLlVE.TlilF} 

193 


OS T3 (9401f509*lf6i7|106)ilP 

0194 

106 

Ca^TlM^E 

019b 


:p t 0 

019& 


CALL I.\lFFnPiLlME.73.Tmi__ 

0197 


CALL I ■TFF(IP|LIME,73iTTVI) 

019? 


IPd.GT.TTXl.BP.TTxl'.GT, 196)00 T 0 691 

0199 


IP(tiLE.TTYl.A'iO'.TTVl,LE’.ll7) 83 T0 7 

0200 

60l 

n « 

02P1 


»JRITP(I?i 7001 )Ll^b 

0202 

70DI 

P^RMATt* piPRyPEP l,\PyT Ll'^e F2LL0WSV* ',73Al) 

0203 


GiJ T7 6 

0204 

7 

IF (Tl .60 iI'’>wRITE(I/,9007)TTx2,TTY2 

020b 

3007 

rtiiMATf *«L'*‘<ER right C!!0RDINATfS Zf DATA BASE IMAGE • S 
1 Ibi» '.»• > •) 

0206 


CALL LlN<P#LIWE,T!,in 

C207 


GF! T2 (9401, §jl,7i701, 407), JF... 

020b 

107 

C0NTP UE 

0209 


IP » 0 

0210 


CALL PTrr(;P,LP'E,73,TTX2' 

0211 


CALL I nFr<IP,LP'E,73,TTV2) 

0212 


IF<1.G?.TTX2,0P.TTv2',GT,196) 70 701 

0213 


IF(l,L6,TTV2.AM0.tTY2,LE.ll7> U T0 702 

0214 

70 J 

T1 B 

0215 


’'RITF(I?!,7ri6l)L P!E 

0?16 


G0 T2 7 

0217 

702 

IF(TTx1.EQ,TTX2,PR,TTY1,E0.TTY2) GP T0 701 

0213 

733 

yUF?H » 3UrBIG*R*5l? 

0219 


ir(?^lE,Ll,H5I2)'^LrS?«PUrBlG-MSI? 

0220 


.•C?AX s «UrS?/<l*lABS(TTXl.TTX2)) 

02?1 


IF( \OmAX,I.E,NCmAT) GP 704 

0222 


\C*'ax « ncmat 

0223 


9ljr??B'iC?AT«(l*l aBS(TTX1.TTX2) ) 

0224 

704 

CPMUUE 

022S 

h 

IFCTT .r-Q, I>1)|>IRITE( I0,8OO3)IlXl,IIyi 

0226 

«008 

FORMAT! 'SUPPER LEFT CPJROIiJATES 0F SCREEN DISPLAY • » 
1 15.* '.I5.» > *) 

0227 


CALL Llf4(I0,LpiE.Tl,in 

0226 


10 T" (9401,7,1, a, 0,109), IF 

0229 

103 

C^^TUIJE 

0233 


IP B C 

0231 


CALL if'tFFMP, LINE. 73,11X1) 

0232 


Call i-tff(ip,lihe,73,uyi) 

0233 


IP(O.GT,IIX1,0P,IIX1'.GT,511) G0 Te 801 

0234 


IF{0.lP.IIY1.AND‘,IIY1,LE,511) Q8 T0 9 

0235 

901 

Tl B IJ 

0236 


WR|TE(IP,700|>LINE 

0237 


00 TO 8 

0238 

9 

IFCTI ,EC.IH)WRITE( 10,8009)11X2, II Y2 

0239 

9009 

F0RMAT( 'SLOWER RIGmT CP0RDINAT?S 0F SCREEN OlPLAY • ’, 
1 15,' M5.* > •) 

024fJ 


CALL LlNn0,LlN6,TI,IF) 

3?91 


^ .T!?_(9i0lj8Ali?x9O2,4P?),lF_ 

0242 

139 

C0NTINUE 

0243 


IP ■ 0 


9-5 
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fERTRAN 

IV-PLUS V02.04 13136112 Sl«AU8*77 RAOE 6 

ruLBlS.FTlL- . 

mi8L^5ZHR_ . 

024« 


CALL 1NTFP(IP*L1ME.7Si1IX2) 

0249 


CALL INTPr(lPiLlNE.73iny2) 

0246 


tF(O.6T'.IlX2.0R.nx2‘.GT,9ll) 68 T0 901 
IF(O.8T.IlY2.0R,nY2‘.QTi911) 60 T0 901 

0247 


0248 


IF(lIxl.EQ,nX2) GR T09O1 
IIiJlYl.ME.liy2) 60 TJ 902.... 

0249 


0290 

901 

TI ■ le 

0291 


MRtTE(lei700l)LlME 

0292 


60 T0 9 

0293 

902 

CALL ZM000M( I IXI, IIVI, 1 1X2, nY2,TTXl|TTVl.TTX2,TTY2, IX, lY, 
1 XZ,Y2 ,mX,»iy.RX) 

0294 


IFIEP.EGtO) G0 T0 iO 

0299 


WRITE(I8,700?) 

0296 

7002 

F0RMATO i!^000M ERR0R • BAD IHA?ERY/CRT P0S1TI0NS,*) 

0297 


TI ■ 10 

0298 


G0 T0 9 

0299 

10 

C0KTINUE 

0260 


!F(LCOO.EQ.0)62 T0 1206 

0261 


MQL ■ 'N* 

0262 


MGF • 1 

0263 

12 

C0NTINUE 

0264 

3017 

IF(TI,EO.I0)wRITE(I*>,4POS) 

0265 

4003 

F0RmAT( ’96AIN ANH BIAS FR0M MEADER 7 (Y)ES/(N)0 > ') 

0266 


CALL LtNURiLINE.TIiIF) 

0267 


Q0 T0 (9401,9,1,3017.3017,3010), IF 

0268 

3018 

IF(LlNEm,EO.'Y')G0 TR l206 

0269 


IF(LI^E<1).^E.•N•> G0 T0 3017 

0270 


LQL • 'N» 

0271 


L6F a 0 

0272 


1 ■ 0 

0273 

1203 

I ■ I * 1 

0274 


IFU,l6.4) 68 T0 1204 

0279 


60 T" 200l 

0276 

1204 

A1 a LGbC(I,1) 

0277 


A3 a FL0AT(L6BC(I,3) )/100. 

0278 


A2«FL0ATtLGiC(U2))/lOO, 

0279 


IF(Tt .EO.le)URITE(T0.8l2O)I,Al,A2,A3 

0260 

8120 

F09MAT(i E^TER imagery CMAKNEL, Gain, bias PBR CRT channel 
1 'S»,I2,» ,*,F7,2,' .'.ft,?,* I •) 

0281 


CALL LlN(IR,LINE.TI,in 

0282 


30 T0 (9401,12. 1.12, 1203. ll3)ilF 

0283 

113 

CBNTl.Nyg 

0284 


IP a 0 

0285 


CALL IMT^F(IP,LINE,73,J) 

0286 


IF(0.0T,J,aR,J,GT,NC) 60 T8 1205 

0287 


L6BC(I,l)aJ 

0288 


IF(J.EO.O) 60 T0 1203 

0289 


CALL FFrPl(IP,LjNE.73.GAIN) 

0290 


gain a GAIN a 100, . 

0291 


IF(6AlN,8r,0, )6AlNaQAlN«.9 

0292 


IF(GAlN,LT,0.)6AlNaGAlN-.9 

0293 


LQPC( Ii2)*6AIN 

0294 


CALL FFfPI(IP,LINE.73,A3) 

0295 


83 f l3aiQfl, . . 

0296 


IF(a3,6T.0.)A3»A3*.9 

0297 


IF(A3,LT,0,)A3»A3-'.5 
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rUI.0l3.rTN /TRlBlJCKS/UR - - - . 

0298 LQBC(If3)iA3 


0299 


80 T0 1203 

0300 

1205 

ir(J,LT‘.0) bRirE(tt;)|6121 ) 

0301 

8121 

r0RMAT(» CHANNEL NUMBER MUST BE R0S|T1VE'.») 

0302 


WR!TE(l0i8l22)J 

0303 

B122 

r0RHAT(» channel MIO.' N?T In IMaSEPYiM 

0304 


TI ■ 10 

0305 


WRlTe{l0,7OOl)LI'Jfc 

0306 


G0 T5 IP 

0307 

1206 

L61>LINE(1) 

0308 


UQr«o 

0309 

3013 

hfL«'n’ 

0310 


HFGal 

0311 

1401 

C0NTIV'ie 

0312 

15 

C0MTInU£ 

0313 


IF(LCrG.EO.O)60 TH 3016 

0314 

3015 

ir(Ti .£Q,l?)wRiTcna,4no?) 

0315 

4002 

Format* 'SDEFAULT channel ASSjQNtiENT 7 (Y)ES/(N)0 

0316 


CALL LlN( I^".LlNE.Tl. IF) 

0317 


i.a T'l 19401, 12.1.3015,3015, 3036). IF 

0318 

3036 

ir(Llr.S(D,EO, ‘N* ) G« T0 3014 

0319 


irculvf (1) .N't, »Y« ) 0/ T0 3015 

0327 


T:Z I ■ 1,4 

03?1 

3p74 

LG"C(I,l)8l 

0322 


L'Ji7c«5,l)sO 

0323 


G0 T* ?016 

0324 

3014 

I » ? 

0325 

1501 

! « I * 1 

0326 


IF(1.L''.4) GK T0 1502 

0327 

3.016 

CALL GASKHRE C) 

0326 


LGf^Cf5»l)«P 

0329 


r.0 T’. 2jQ2 

0330 

1502 

IF(T I ,C;0, P)writE(i8,6015)i,LGo^(I,1> 

0331 

B0l5 

r2P-lAT( >lEMkR imagery CMANNFL ^BR DISPLAY CHANNEL 
1 .!■>.' > •) 

0332 


CALL LIN( I^.LINE.TI , IF) 

0333 


30 T’ <9401,3015.1 ,l502,l50l.ll5), IF 

0334 

115 

CB^rlNUE 

0335 


IP ■ 0 

0336 


CAUL ?‘:TFF(IP,LINE.73,J) 

0337 


IF(j.l 1. O.TiR.J.GTi^C) G0 JA l5n3 

0338 


LG*»C< I ,1>»J 

0339 


G0 T.‘ 1501 

0340 

1513 

IRITE (10,8121) 

0341 


i>‘RITP( 10,8122) J 

0342 


TI a IP 

0343 


GO T7 12 

0344 

-JPS2. 

CONTINUE 

0345 

2001 

CBiniru'E 

0346 

2002 

CALL TCwLST<NCP) 

0347 


IF(I.GF.EQ.0)CALL C0MLUT 

0348 

18 

C.TNTINUE 

0349 

3019 

RF4C a 0. 

0350 

2007 

CB^TIMJE 

0351 


TK a 10 

0352 


IF(T1 .EQ. IPICaLL CSGnPH<I0,PAGE, 
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PULBIJ^JIN- . 

1 MMAt.6 DISPLAY I’.O 5/2/77*, 24) 


0353 


IFITl.NEiOlTE ■ LP 

0354 


wplT6cY0,4OO4)lA-tATESIl,ACtfN)iI«i,2) 

0355 

4004 

F09MATC ACQ'JISlrlZN DATE P *il2.I3) 

0356 


■4R1TIt(T0,4OOP)TTv1,TTV1 

0357 


>iaiJPtTB.4Q06jTTxi^njt2 

0358 


WR|Te(T0,4CO7)!lXl.IIYl 

0359 


WRIT£(T0, 4003)11X2, IIY2 

0360 

4J05 

r0P'<AT(* UPPER left C00RniVAT6S PF DATA BA5E IMAQE ■ » 
1 I5i»» *,15) 

0361 

4006 

r0PMAT(* LPWER right CP'0ROl^ATes 0F DATA B*SE IMaOE ■ 



I.ai**i. *.I5) 

0362 

4007 

ri3HMAT<* UPPER L'^PT CU'^RnlNATfeS 0 F SCREEN DISPLAY • *i 
1 I5i*f *,I5) 

0363 

40C8 

raR^ATC LPWER RIGHT cn0sD|NATBS 0F SCREEN DISPLAY ■ * 
1 I5»*i *,15) 

0364 

3021 

HRlT£(Ta,2110) 

0365 

2110 

JEZBa^-ri* DISPLAY-C.H lHAfi£R.Y5£H GAIN BIAS') 

0366 


D0 2P0:S I 3 1,4 

0367 


GAIN s rL0AT(L50Cn,?))/lOn, 

036'J 


63 s Pi-aAKLCaCI Ii3))/10'0, 

0360 

2)0t. 

t rr i’’. 2111 )i,LC^C{ III )iGain.a3 

037C 

7lU 

Pt:‘3-i»T(bX,li,6x,I2.4X,P10,'»,2X.ri0.2) 

0371 

16 

C«!N.r!N"JE 

0372 


« T3 ) 

0373 

1606 

C0"T!t-!i,c 

0374 


I* (T! .t-a, I4)'^KITE(ti',»0l6) 

0375 

'*016 

P0RmAt( •'PPPWCfcED (v/M 5 M 

0376 


OAI.L LlNdP.LlNE.TI.in 

0377 


'V;« T’ {5401, 3035, i,i60A,.o^e.lU)ilF 

0373 

3035 

IP<lC0G.EQ.01G'» T0 300" 

037'? 


SJ y:' 12 

03«J 

U6 

inUlM^{l).fc0,*N*) GO T3 1<^07 

0361 


IP(L''’''-(l).fcil, 'Y* ) Gf TK 1*01 

0342 


TI » 

03P3 


WR!'f ( l3,700l)Ll'c 

0334 


Gf T'’ 1656 

C3fl5 

i6''7 

CAL). nl'SETd.Fn.l) 

0346 


IISfTF » 0 

0387 


G7 T * 1 

03P4 

lo'il 

‘^PE%('J '.lT*?,'v4"'£B*r3no,l3F I’, DAT* iTYPEi' UNKNOWN t,F0RM« 

1 *'J \,r^'RMATTEn* ,£Pk t 160?) 

03S9 


GO T" 16 H3 

0390 

16''2 

•JRIT6C I3»8160) 

03?! 

816:! 

rn’P'JAT(' ?PE^' ErtPkJ'’ '*iv rlLT- Pt'l 3 1 , PAT * / ) 

0392 


TI a I • 

0393 


G? T7 !“» 

0394 

Ioo3 

W«ITE(?)PC:’H,hC0M 

0355 


UL'^S^t Jl lTa2,DISPvi4fct*,SAV£* ) 

0396 


CALL nustTa,Fii,i) 

0397 


*!S^TP » 0 

0396 


CALL CLRf:F(53) 

C35? 


TXl » TTXI 

0400 


TX? » TTX2 

0401 


TYI s TTYl 

0402 


TV? * TTY2 
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FUL0U. 

FTN 

. ZmBlJfiKS/w'?- 

0403 


IXl B IlXl 

0404 


1X2 • 11X2 

040^ 


lYl » IIYl 

0406 


IY2 « IIY2 

0407 


D0 3022 t ■ ll^*AXCHM 

040a 


.auiiLQBcniZ) — 

0409 


5(1)81680(1,3) 

0410 

3022 

111(I)»LI)0C(I,1) 

0411 


ACClSp(l)84DATFS(l,ArKN) 

0412 


AC0lSp(2)8ADATES(2, ACK.S:) 

0413 


0PFN(U'^lTt2,NAMEt't3OO,nDP'TG*Y.TMP», 



1 T yPtf » L'NKftl^W • ,F f"RM* • U'-FIFyATTED.’ ) 

0414 


nz 3030 1 8 1,^'t^TS 

0415 


r2Ts(i,i)»o 

0416 

3,)J» 

naTs(2» 1)80 

0417 


11 8 JTXI 

041 1 


12 8 TTX2 

0417 


n * iTYi 

04?0 


U s TTY2 

04?l 


ir( 11, LE. 12)90) T': 3 q40 

0422 


1 * 11 

0423 


11 8 12 

0424 


II 8 1 

P4?'J 

3Q.1Q. 

IFU3.Uki.I4).';;) T- 30U 

0426 


1 s 13 

0427 


13 8 14 

0426 


14 a 1 

0429 

3041 

ca*'Ti ,0'E 

0430 


11 a (ll*9)/10 

0431 


12 3 12/10 

0432 


13 8 (13*9)/1Q 

0433 


14 a 14/10 

0434 


1F( Il'.RT, 12, .R. P.PT. 14) G3 TK 3042 

0435 


OS .3n39 I 8 13, M 

0436 


.<039 J 8 11,12 

0437 


« 8 (l-l)«19*j 

043S 


n0ts(l*K)a( J»in-TTXl)8X2*IXla,5 

0430 

3C39 

l'erS(2»K)8( I«10-TTY1)8VZ4IY1*,9 

044<i 


/rite (2)n<!TS 

0441 

3042 

CL (k.'MT*2) 

0442 


CALL ‘iFtiUERirUUaM) 

0443 


CALL •4lTFR(53) 

0444 

17 

lFni.f;Q,l7i)WRlTE(!/'.b0l7) 

0445 

tCl7 

F2?n;at ( *SE(X) IT, in (4)ESTaRT I «) 

0446 


CALL LlN(iP,Ll^c.Tl, IF) 

0447 


r,Z T.’’ (9401, 1606, 1,17, 17, 117), IF 

0446 

117 

IF{Ll\c(l),EO,'B'). T8 1 

044>v 




0450 


afc T? 17 

0491 

94n 

IF(oSeTF.EO, 1>CALL i)USET{l,Fll,0> 

0452 


I 8 56 

0453 

9400 

CALL S^TEFCI) 

0454 


CAUL E*U 

0455 


ENO 
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9.1 SUBROUTINE CRUNCH i 


HF0«TRAM IV 
CRi)(>lCH,FTN 
0001 
0CC2 


i3|33LD4 31«AU6«77 


RACE 1 


0003 

0004 
0CC9 
OOC6 
000 / 


0008 

0009 

0010 
oou 
0012 
0013 
0314 
0?15 
0316 

0017 

0018 

0019 

0020 
0021 
0922 
C323 
0924 
CJ2I? 
0326 
032/ 


C 

r 


-J1LUS_JL02-J14 - 

/TRl3L®CKS/h9 
SUBROuTlNg CRUMCM 

INClJOE •SYIFULI!!fC2H.CfM* 

THIS v6RSlf^^ 0F FWL^IC^M.CBH IS TAYLFRED T? FUL0l3»AND FUL0I4i 
The TaHS hybrid VERSIS'.S. T0 change T0 the RTE VERSI0NS, SET 
. .. NCHa T T({ .Ai‘iD-CHA!iaE...T-H£&E CCKMENTSi 
implicit I»’TEGER(A • i) 

PARA''ET6» vc-'ATba 
REAL G^.‘'F4C.X?,Y2 

RYTE file# 16Li^GF,LCLiL6F,mFLiMFG,CHL»CHR.WC|HXCiLUT 

C4!MMr'f: /FC2H/FILE(33) .wC(5),MGl »H6F»L0L|LGF|HFLiHFr.»CHL<NCMAT), 

1 CHe{,NCjlAT»|M*C(vC,‘tATjtJ*jMF4FlljMTxTFGiTUNlT«TgNiFLN»FPRM| 

2 TTX1,ttV1,TTX2,TTy 2. IIXl,IIYl,IlX?,nv2.1X<512),lY(5l2), 

3 Txf5l2)iTY(5l2)i‘'XiMY,r X,\CMAX,LG6C(5.7)iLliN,GB{NCMAT*l,5) 

« m.!JT(2’T6*5),»'C-#PF*C.X?,Y< 

C2‘'«n''g/HCHH/SSiSEiLS.LEi ^RPOR# K'LSPRi nCPRi NRPC i ANCL* 

1 'C.-;S»'BIT,DFI /^CAC,SVn,RSli,PSKIP,HSl2,CALP»CBRP 
/FaTAL/ 2F!*9R 
/IBLP/M.l.P 

I \TEPe 5 FC'M(27«2*''7*''-r-i4T/2>iMC2|'(20) 

EU"1''al!:^C? (FO0v(. ),nLr< j )) 
c3'llv,v'.p^:p( Hr0M(i),ss) 

0J5 1 1 a I.*) 


4 a 1 

2 J a l»i\)C 
If (.-(XC( J» I ) ,F(j.O’ 
■’XC(X, 1 )aMXCf J, I ) 
GP(K,I)aG0(J, I) 

K a < ♦ 1 

C2MI\JE 

D? 3 J a K,,NiCM4T 
MXC( J, 1 )»0 
J, T ) aO 
C/'.TI% Je 
RfcTjr’.v 
6N“ 


T' 
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9.2 SUBROUTINE GABI ' 


.jirpamAN jy. 
QAPi.n'i 
0001 
0002 

• c 

• c 

« c 
OOOj • 

0004 tt 
OOO'J • 

OOCo ♦ 

0007 # 

« 


.lill&ill 31-AU0-77 


PBQE 1 


IS TAYL0REO TP PULBlSiANO FUL01A. 

Change T0 the rte versions, set 


PL'iS Y.02-0^ 

/TP:®l2’C<s/wR 
SDRRPuTINE QASKHH) 

InCl'JOE •SYIFULmICOm.CP'm' 
this vEHSPN 0F FULl"IC0rt.C3h 
the Cams HYfl'TP '/EMSI0VS, T0 
... 4 C''aT T3 ha A,-^r CMANQjL-TMfiSb. fiPHHfiN.TSi- 

IMPLICIT IvTEGPRiA - 2) 

PAPA-ElfT »CHATts 
real G^.RFAC.XZ.YH 

=3YT6 FlLe.MGL|MGF,LGL»LGF,4FLiMKG,CHLiCHP,WC|MXCiLUT 

C0mm>'<n /FcflM/FILF(^3).^■C(5^MG| *mgF#L6LiLGF,HFLiMFGiCHLINCMAT) , 

1 £«P(NCiiAT),HiCI^'C^AT,5>|.';F.FUAMTXTFOiTUNlT.TgNiFLNiF0R>lt. 

2 TTXl,TTTl.TTX2,TTy2.IlXliIlYl,IIX2,nY2,IX(912),lY(5l2), 

S Tx(5l2)iTY(5l2),‘»X,'i''i X,NC-'<AX.L50C(5,3),L'JM,Q0<NCMAT*1 i9) 

4 ,l"t(256,5)i^C »,»FAi:»X/,y2 

NPPCiANCLl 


030.-) 

1» 

caMMv''v/Hc/M/sSiS*-»i..s,L^;r RPrs»Mcspp|MCPR. 


ft 

l Nc. .;S,.icMT,D’'I.' C:AP,PV ■,'»M2|PSK1P,HS12 

0009 

ft 

/FATAL/??tf<‘’ 

0010 

ft 

caf',;''-v /!0LP/IP»1.P 

0011 

ft 

1-TE5P? f"C*‘l<276?*27« irMAT/21* ‘CPH(20) 

0012 

ft 

e.j J1 V«|.L jCF (Frp-'d ) ,F luE( : ) ) 

001,1 

ft 

c 3'ii •' Ai-tf'Ccc > ,ss) 

0014 


Tyre 

001b 



OOlo 


U (F”4 -E.i) FfcTLO.'. 

0017 


TA 1 I . 1,5 

OCl.' 


1F(L!’L>C(I,1),EO,0) i.-i T0 1 

0019 


J 8 4*L(1»:C( I.1)*26U 

0C2C 


K 8 J) )#256^FF J'.CIHhI J*l) ) 

0C21 


L s I A^^C^|3^7«7^ 

OC?'’ 


IFCK. .^:.L)L»-L 

0C?3 


LG'^C J I »2)8L*10 

00?4 


T8L 

0C?t> 


RaR/lc 

00?6 


Karr ,if,C(WR< j-2) )8256*FFU CIHJTt J-lM 

0027 


L*U ' jUi32767) 

0073 


lF(K.r,F.L)L*-L 

0C?9 


L3?'C( I *3>«FL.1A7(L)«10/’4*,5 

003d 

5 

r.' JTTf. ut 

0031 


IFlHFS.tC^'.O) call nkCUTT 

0C32 


TETUON 

0033 


t Nlf! 


■ 


’i-LrE ii) 

■' '’^T)r:ATjrv 
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9.3 SOBROUTINB COMLUT 


NrgKTPAN n/oLUS vng>n4 


CBmujT.FTN 

ocoi 

09P? 

C 
C 
5 

03C.t 
0C04 

coe& 

0806 
0007 


i9i9b<97 319AU6-77 


PAQE I 


0006 


/TP|^<lOCK8/W1 
SUPReuTiNE cbhlut 

lUCL^Ub •SVlFULaiCPM.C^^'' 

ThI? VfeRSieN 0F FUL01C‘''M.C«« IS 7AYL?RED T? FUL0l3iAND FUL0M* 
TmF CaHS HVBno vbRSIB^'S, T» CHavGE T0 TH£ RTE VERSIONS, SFT 
N'C^aT TjJ 64-AliD CttA-NOfc. 

IMPLICIT rjTEQPRlA • Z) 

PAPA^'£T6P ncmaT»«. 
real 3fl,RFAC,XZ,y£ 

byte F1lS,*iQL,‘iGF,LGI ,Lr,F,uFl.,M^O,CHL,CHP,wC,PYC,LUT 

C0MMOV /FC'IM/FlLe(33),i‘C(5J,PCl ,HCr,LGL,LGF,wFL,HF8,CML (NCMAT) , 
CilELuCiiAT)iMXr(f!C-AT,5)iliriFll#MTxTFG,TUfJlT*TUNiFLN»F0RM, 


TTyi,TTVi,TTX2,TTY2,IIXl,IIYl,IIX?#llY2,IX(51?),|V(5j2), 

3 Tx<912),TY(512)»PX,lY,'iX,NC^'AX,LGBC(9,3),H.'Ni6R{NC«AT*'l,5) 

4 ,1 l'T(2‘56,5),NC<;,tFA0iX?,VZ 

CiJ'*«!:*\/H';eM/‘5S,S"iLS,LE,’ RPDS# NCSPP,mCPR,NRPC,*NCL# 

1 ‘-'C# vS,* PIT,DPI ,.vCAP,f:V''.,RSlZ,P<!K!P,HSI?,CALP,CPRR 


0309 

031J 

0011 

0C12 

0017 

0C1‘ 

Otll* 

OClf 

0C17 

PD13 

PC19 

0020 


/KATAL/Pt'.PP 
/tn P/I -,i r 

iNTEGf'-* FC''M(276?»27«''C'1AT/2 ),mCPM (20) 
F3UlV;.Lr'‘C’: ),I 1L»:(1)) 

fcOl'!V„Lf-''Cr( HOe'nil.jP) 

9E*L Ai‘J 
14' 1 I B l,i» 

I •!) .t;:,'') fj'. t: i 

A * ‘■L AT(UiRC(I,2)}/irC, 

I’ « Fl *ATaGPC< I ,3) )/lC0. 

"F’ 1 J B 1,256 
KCA«( ( 


0021 

0022 

0C23 

0024 1 

0026 
0026 


IF<K,GT.255)K.259 
IFIK.lT.OXbO 
LUT( J, I)8K 
Cfc'\Tl\LE 
RETuW:. 

EnP 
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9.4 SUBROOTIWE TCHL8T ^ 

HfPrTR*\ iv.Pi.us Vl!2-0<. . -i3L?9l24_. _3l'»AUft»77 PAGE 1 

TC^-lST.FT^ /TP|i^L«ICi<S/he 


ocn 



SURRFuTiNE TCHCST(VCR9) 

oco^ 

• 

r, 

tNClUnE *SrjFUL4tC'*M,C!’H' 

This VERS1?^ i9P rtL31C<^M.C?H IS TAYLRREO TP rUL0tS»AND FUtflH 


« 

u 

ThF Ca^S HYURin VbRSI0*<S. T0 CHANGE T0 THE RTE VERSI0NS. SET 


• 

L 

N^WAT Tfc ^4 ^Np cHiNCE TwE?i UUPHENTSi _ 

0CP3 

» 


IMPLICIT I?-TPG?P(A *2) 

0CO4 

• 


PARAHfeTgP NC'^ATt* 

000b 

• 


PE«L C?-.RrACiX2»Y2 

OCCip 

• 


PYTE FlLfe»‘'6L,'^Sr,l .ul,L6P|^rL»wFQ,CHU»CNP,WCiM*C»L'jT 

0CC7 

# 

• 

• 


CPMM". /FRf»rf/FlLP{33) , 'CI5) #mGi, »MCFiL6L»L0F»HFL»HFGiCHL(NCHAT), 

1 CWP(‘C>AT),^XC^'C• AT,'j),vr|rii,H|){TrG,TUN]T|Tyi!)j'’LN|F0RH, 

2 7TX1,TtY1,TTX2.TTy 2, 11X1,1 lYl, i|K2, 1 lYZ. I V (512) • 1 Y(9l2 ) i 


# 

« 


3 Tx(bl2>,TY(5l2),^ «,YY,‘ X,\C«AX,I.GaC(5,S),LUN,GP(NC4AT*l,5) 

4 ,LUT<2‘'6,5),'C-,RFAC,X7,Y4 

00C'<3 

# 

• 


■’* /HC?“/SS,S? »LR»UFr RPD<6 *NCPRR»MCPRiNRPC|ANCI.» 
1 f Ci' S.SiBlT.QP'I .■'rAP,SVr,PbT2,P5KIP,MSl2,CALRiCERR 

PCP'V 

• 


C0««."i_/rAYA|,/?*,nP 

rcic 

• 


>KiP/r’,'F 

0011 

• 


I:iTEC!£K FC''i.<276?4 77«A.r:f^AT/2)»MCPM2n) 

001? 

• 


fc- 'IVALfeNCF (Fr2*'(l ),F1LP(0 ) 

CG13 

• 


Ej. IVmI.c.’^CM ),SS) 

C514 



L%' 1 I t l.NrMAT 

PC15 


1 

cHPn)»c 

02U 



H'/! 2 t « 1,5 

0017 



>Xfi )t : 

ocia 



IFC' ri.F' ,1 ) g" Ti 3 

or.i9 



IF (LC><C( 1 ,1 ) .fcC.P)' 1' T " 3 

oo?c 



WC(P*1 

CC?3 



J = L'il-Rfl .1) 

nor? 



CHPC J)».| 

0C?3 


< 

Ifi ''.F.F'.,! ) G' TC 2 

or?-! 



4 j « l,i.'rv/'T 

CC25 



1M"V(, ( j, 1 ) ,FU,0) f r. 2 

0026 



. C ( I ) • 1 

"C27 


< 


002^ 


c. 

CP/'Tl V fe 

P02? 



K ■ * 

C03O 



PrJ 5 ! t 

0031 



IF (C'*P( t ) ,r-3,C) ■”!/ T'- f 

0932 



ChL(K)«l 

0033 



CHP ( T ) «K 

0034 



< ■ * 1 

0C3b 


r> 

Cpr TI - .x 

0036 



« i<-l 

0037 



!Ff/,r.''’.*'C‘'4T)BfcTliS.v 

0039 



fe I t K,;>.C^'»T 

0039 


6 

CHL( M*r 

^ff46 



-•-ifrYt'fi'.. 

0041 



EM; 


Oyj 
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9.5 SUBROUTINE HOCUTT' 


HFSRTAAN Iv 
H0CUTT.FT'. 
0001 
ooo;; 


i3|3?M9 31-AU8-77 


PAGE I 


00P3 

0004 

000» 

0006 

0007 


c 

c 


PLUS vr'2*o^ 

3C*JR:''jT|vg H^C'JTT 
ImCl-'liE *8YIPULl^IC'’M,C ' m* 

This vf'HSiPN or ruuIC'M.C:> 
th»- HYH»n vtesia'-s. Tc 
'C'^at t.^ «4 ;.,N!n vSE T“*esfc 

!HHLI2!T l4TECi«ra(A - £) 

»’AYA‘*bTg5 •gC''AT•^ 

'<bAL '?»,‘»FACiX?,r£ 

=<YTF Pke,-6U»‘*3r.u:.L.LaP,HrL»‘^f S.CHU.rwP.WC.HXCiLUT 

/rcUK/FlLP{T3),''CtJJ ,>'«• •HGF,LCLiUGF,MfLiMFp,CHL(NCHAT), 

1 C -ip(N:yAT),Mj(r(^-C‘'AT,')),Nr,Fli •HTxTFO,T’J\IT*TliNiFLN»FpRH, 

?. TT<l,TTVi,TTX?,TTyZ, M<1* IIYl, JIX?»IIY2,IX(51?),IV(912)# 


IS TAYL?RED T<» FUL0!3»AND FULSIA. 
Cma'.'SE T0 THE RTE VFRSIRHS, SET 


Tx(5l2)|TY(5l2)|f*X.1Y| 
.L' T(2‘i6,5),'C-#'»FACiX 


X|^-'♦AX,L6tJC(5,3),LUN|GP(NCHAT♦t,9) 


,YX 


OOOo • 

• 

Cii;':i‘ '‘-./HC2*'/3S,S'iLS,LE|' R®C«j.\CSP‘»#''l 
1 'C. S.' IT, DM. •'•AF.'^V P9K IP, 1 

CSC9 • 

*l’"v • /fatal/?.'. 

OOlC » 

' . /UUP/17,' P 

OCll • 

ir.TbrrP Fc\«(27e?»M* ir'<<T/2),-u;PM2?) 

0012 • 

L3 'l-'AL^'C'' ),FIL‘-(’ n 

ccn • 


0C14 

* 1. 1. • H , LL , '■'M 

COlij 

UL « 3‘7^7 

OClt 

« -.5276? 

0C17 

n* 1 ] t 1,5 

OCl® 

IFd.'^ .C(l,l),fc'',; T • 

OCIJ 

t « -Lf'i3'7{!,3)/l"i4, 

OCPci 

« t L*5U.'AT<2560‘')/FL/7AT(L'a'-{I,?)) 

0C?1 

IFd ,*^'.',(I/4)*0' B L • • 

PC?2 

IP( I ,r' -, < 1/4)b4)-»m#? 

0P?T 

IF(l.L.T.LL>LL«L 

PC?4 

I F ( w , I,T , hH )HMSH 

0C2S 1 

! I I L 

PC?f 

L * -Lb 

p:?7 

B Fl* A’l?56t^)/(w-<-LL> 

0024 

''Z 2 1 B 1,(,C 

0C?Y 


C5^C 

T» f I .r-''.(J/4)B4)i f.U2t!,2;BrBt 

rc.xi. 

ur -2f I ,3)BLBlJP,*,5 

'‘C.T’ ^ 

ini.- '.n/4»»4)i O'Cf t,3'«L U(i,3)/2 


STTU' ' 

0C74 

t ^ r 


CPR.VPPC»ANCL» 
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9.6 PROGRAM gOLOI2 i 


P90QHAP FUL0I2 

INCLUDE 'SYlFuLeiCPH.C0H« . . . 

BYTE BL0CK(. OOOO)iV0(9l2*9) 

Data iUFBIS/lOOOO/ 

LaTa l1NL8T/*i/ 

DATA I0iLP/6«S' 

CALL detach 
call attach 

0PEN(UMT«l,NAME»‘C3OO,l]FULPI.DAT*|F0»''i‘ijNF0AMATTE'''i 

1 TYPE ••PLD'iREaDBNLY) 

PEAO(1)FC0M,hc 0M 
CL0SE(UNlTil) 

HFaC ■ RFAC • X2 
0 wRiTE(LPi100A)PFACiX2 

01004 F0RMAT(* RFaC. X2 *«2Fin,S) 

BUF82 « H8I£«2 

ir(HSn«2,LT,RSl2)1UFS2»PSl2 
9Li0S2iBUFB!Q-l2«PurS2 
TB ■ TTXl-1 

IF(TTX1,GT,TTX2)TB«TTX2-1 
CALL DSET(l,ril,riL6,MTXTFG,TUNlT,n,l) 

TYG*CTYa)/6>#6 
D WRjT 6 (LPilP 0 A>Tvr, 

01006 FBRMATC TYG M5) 

CALL HR6AD(l,BLPCK,BL0CK(bLeS2*l>*PLrSF.rePH,n:,Pe'TY,E0r,i) 

CALL rriND(l,TTxl»TTYl,TTX2iTTY2,F?R“|PLacc(9L?S?*l).Bi;FS2) 

na 1 L ■ iiMV 

LIN6«Ty(L) 

IFCLINE.EQ.lHLSTJ G"" T^ 6 
IINLST ■ LlM 

D wftiTP(LPilOOO)LlN'fc 

1000 fbrmatc line MlO) 

00 2 I • liNCR 
ICM . CHL(I) 

CALL LPEED(l»BL0CK(NX»(I-l)*l),BL2fH<'?LeS2*l)iRSl2,LlNF»Fll«PHTY 
1 E0F,FPRM,ICH) 

0 wRiTF(LP. 1007)I , ICH, {6L^rKrJX«n-l)*j)* 

D1007 F0RM<T(’ L»EEr '.2I10/C • « 32 ( 0.T* IX ) ) ) 

2 IF(CFR>’«NE.O) Ge TP 100 

LINE • ( (LInE/<^>*6»TYG)«9FAC*|9 
0 wR|TP(LP.100P)L1vE 

00 3 I ■ 1|5 

0 WRtTE(LP#irO?)I.IY(L) 

1002 F0RHaT(* PV *•2110) 

IF{WC(t),NE,0)CALL I PV ( 1 , 1 L ) . V*> (3 • 1 ) ) 

3 C0vT*nuE 
call wait 

00 4 I c 1«MX 
TPIXiTV( I)-TP 
1X1«IX(1)-L1NE*1 
IF( lYl .LE.OG? T:r 4 
IF(IxI,GT,5l2)G0 TP 4 
CALL GBCALC(TPIX, 1XI.BL0CK.VP|NX.NCR) 

4 C0NTINUE 

6 DP 5 1 iliS 

0 wriTE(LP»1003)I,!V(L) 

1003 FBRHaTC IWv *•2110) 

IF(WCmtNE.O)CAUL I WV<I . I Y(L ) • V« (li U)_ , 

$ C0NTINUE 

call wait 

1 continue 

lOO CONTINUE 9-lS 

Call DUSET(i,rii,i) 
call SETEF(53) 


Call detach 

CALL EXIT 
END 


9.7 SUBROUTINE GBCALC I 

subroutine QPC*lC(TP1Xi IP lXiBUriVL.NXX.NCRfi) 

INCLUDE »SViruL0IC0M.C?iN' . . _ 

BEAL Q 

PEAL AD(5) 

BYTE VL(512i5) 

BYTE BUF(NXXiNCR) — 

ir(MQr.EQiO) G0 T0 1 
IF(L8F,NE,0)R6 TuBN 
D0 2 1 ■ ii5 

C ■ LQBCd.l) 

1F(C.EO,O)G0 TC 2 
CiCHP(C) 

J«FFUNC(9UF(TplX,C)) 

VLdPi f !)»LUT{ J*l* I > 

2 CONTINUE 
RETURN 

1 00 3 IC * 1|5 

Q 8 0 

00 4 I * I.NOhAT 
C * hXC(IiIC) 

IF(C.EO.O) GP 5 

C«CHP(C) 

4 Q » 0*FFUNC{BuP’(TPIX,C) )8G“(1#IC) 

5 IFd’.EO.l) GP T0 6 

AD( IC)8Q*GB(NC”aT*1, 1C) 

G0 TP 3 

6 AD(IC)80 

3 C0NTINUE - 

00 8 I 8 ItS 

IF(LGr.NE.O) Gf! T0 7 
C 8 lGPC(IiI) 

IF(C'.EQ.O) G0 0 

ADC I)8FLeAT(LG«C( 1 1 2 ) ) • « AD ( C ) *Pl 0 AT ( LGBC (1 , 3 ) ) /lOO . ) 

7 IFCAOd) .GT.255, )A0( I )*255, 

IFfAn(n.LT.n.)An(i)80. 

VL(IPIX»I)saD(I) 

8 continue 

RETURN 

END 


^*r> 
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9 . IMAGE DISPLAY 


This progreun has been extracted from the more comprehensive Conso- 
lidate Tape Read Program which is described in reference 1. 

Flow charts are not available for subroutines CRUNCH (section 9.1)/ 
GABI (section 9.2), COMLUT (section 9.3), TCHLST (section 9.4), 
HOCUTT (section 9.5), FUL0I2 (section 9.6), and GBCALC (sec- 
tion 9.7). 
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10 . 


FIELD DEFINITION 




This progr 2 un is an adaptation of the more comprehensive Irregular 
Cursor Program, IRREG, which is described in reference 2. 


• 4 > 




10-1 


10. FIELD DEFINITION FLDDEF 


p'-Pj^US VL'2“0* l2l32l59 ?9*A'JG»77 PAGE 1 

FL'^DEF.rT.v, /TP:'iL0CKS/W» 

0001 PRi^GPAM rLDDPF 

00C2 HPlIcIT I^iTPr,FK(A-H) 

0003 iNCLi'Cf 't300,3J."AfSreH2' ,1KT' 

0004 * lNCI.lT/P 'SV|C3 ';Ci33CA!-.SPaP-h, I-C* 

0005 * PAPAPfeTr:*^ ‘•AXCaTb/s^ ,?'AyS"3»6O,‘'AXCHNaA|NPIXal96»NLlN*117#MAXFLr)*50 

• l,MAXVal‘iiNr)j/'TSs2n5,Dl.SKIPslii,DSS>KIP«10,MAXACn«6,KAXACCs4i 

• 2\r;SP'>''D»6»N'^DTw'’;s1 C,- 

OCOh • Pr/JIVALE^CF (Cl, AC’''ATc)»(Cr»ISF6),(C3,PrL4r.), (04, TX1)»(C5, DISKID) 

0007 * ISfeOcf^ Cl(4A9>,r<<256),C3f7l),C4(y4e),CS(f?9) 

• P* 

ftoga • INTEGE- Aci:.ATfc,S'ii:''AT,Sg )P 'P,Ca1knt,CATT''* 

OOPy * C.-iyVEr,‘'arHA. r'SUb,D'TrAT»DETCLU 

0010 * i:^-'^!*,j/Ci^Pl/ACDATe (if.f AX'CO ,C^ WcC(‘'A/C4'''.MAXACC),N^CPA'I,')0SUP, 

« 13U ICAT f • AX<?UP) , S'l: P.'P( 'AAS 'fO , rATK.' T ( ^^AXCAT > ,CaTT^(MAXCAT ) ,M{»I)?, 

• 2 '<''0, -'*T'^,naTCAT(/'-v.TS) ir'i^tCLOf^DeTS) 

OOU • I.v,TEi;,--? AQaTPS,S'.'.;'?,a: A! ST,FLD/;AV,D^TDAV,Pi;AT«il,TDATfcl 

n012 V li</TC';,:^p PQi 7^2 , TP A Tf- ? , P!..a T* 3 , Tr ATt.3 , C A TNi a«i, D ! SK I D , PAND7M, 6RI n 

0013 • HYTE \:rL,‘>START,-.'TypPl,AI P,ALP® 

0014 • '"YTt PrTCT,PCTlT'’,‘'AP,VA -7.,r!.A ■feL,'^YPF 

0 01 '3 • r, "P ■ \ 7 / I i. ' I ^ A.'”; , ' CP , 0 A Tf S ( I? , “ A X aCp ) , S''^ I LG*^ I *'• aK ACD ) , 

• l3u' Et. ( ‘ AXA(;ij) , ';u“ A7 (* A> Aff ' , ! yr«Tt (2 > , a\al«t(&) ,fldDAy (2) , 

• I": T;).» Yl ’),‘STA‘T, TYP-.I l(?),TDiTPi(2),PDATF2(2),TDATti2(2>, 

• 3P.,Mr. :iv2),Ti;Al'Lo(2) ,' /PAT, •aT:. ,.xrAT),ALP<WAXCAT),ALPO» 

« £ PCTCT("A'(.''n,P'CTCT.7,VAe(f'4XCAT), WAR™ 

i> C * 

n:ii. • I/vTfpp'. tn APl,feru. ';:2,iFLAr.3,trLA(i-J,tFi Ar,5,'JFLAGl,i;FLAG2»UFLAG3, 

• I'jFLA'.a 

0017 » I-Tfei>.‘' ►^Fl AG, T 

OCl a • C/'M'- .'C--i3/PF'.AC,TSl‘ T,CrL7 Gt,FFi.AG2,EFLAGy,FFUAG4,EFLAG5,UrLAGl 

ft l,0FLAG?',PFl.AG3,jFu/G4,'t‘i-'‘-”("*AFt;") 

ft Pft 

PCIO * INTFPFP Txi,TYl,Ty,TV?,AC-lPP,G,f ,L'Y>-.lNn,rPTAPY,t;f lN,GMAX,FnL 

0C?p • ir.Tpr.u! SPvivf-.CLA 0 

rr?l ft Pi, /-/mA/TXI.tYi ,TX? , TV - , , TYI , l X?, J Y7, ACriSF(2) , UK4) ,G(4), 

ft l‘!(4) T T\''(‘i,-TPT L) , GP r D (b, ' PbPWG ) , P^TNr ( 4) , MimPPT, 

ft sp/tai-^ V ' . r«Ts) ,'..M - . c ■'*> ,7 j; ( G, 7 ) ,ci. A .'jp( « ) , ci.uwNriH ) 

0C?2 ft C?/*': • I';k ,i- A TY' ( : ,‘Tc ; , gi- I ;: ( n'D T'TF ) , DL ABEl. ( NDFTS ) , 

ft iTYPt ! . lb) ,prri.;’c 

•■■Y-'i i,T\'^(7<n 

0''?4 V'^f /rP 'LA!-' L ' • 'Y TS 5 

01,25 p.Tt-r.f f/ lit ) , 2) DUNAXTUD) , 

1 ?,-(/AXFLP) 

0:?A pyTa riel J(2« 1AXV,^<AyH G) , U, I? 

0077 t/:Trrt-P 5AT3(2fti"iXV, -AVf I G) 

0C?r 1 "AYa r'7/A/ 

OC?-> TATa iWP‘^G3/''^1h • , 3:-<F‘.i3/ 

0 P 3 1 ! s ! ‘‘ 

CG31 IPi s I 

0332 1 PAI I C^G^P^U/, T'A, 'F ru ■ PtrlVUI^v P9fi(,RAM 1,0 &'77»,33) 

0033 . A'TT'clPilPiJP ) 

0034 ICPO F.’/--A r( • (1) Mt-'I -cp ktV <7) Df-L=T? riFUDSV 

1 • (3) DISPLAY MFUPS'/* <4) pferp.E nE.^ ftELOS*/ 

? ' (/) nxiT»/'i> ’) 

Py3b CaI.l I. IN( r',!-!'/ . II , IF) 

003t T ' 19^, 1, 1,1 ,■>,?)» 1^ •, . , 






■n 

"■i 


F0RTRAr: IV 
FLOOer.FTN 


.PIUS vo?«04 


I2l3?l«9 ?9«|iijQ«77 


PA&E 2 


0937 

2 

52 <3i4,5,5),LlNe{l>— 60 

0C.3S 


T*-' 1 

0C79 

3 

CAlt FLORPTtlij) 

. 11 0«) 


*3 T'^ 1 

/' 0C«1 

,1 

call C^LFLIMI^) 

0042 


T ’ 1 

0C43 

5 

PL'^C"(1)»5?-LI^L(1» 

00«4 



0C4$ 


*?L!^C*\(-J)«feFLAf,3 

0046 


f‘Lv*C‘<(4)aT7l 

oc«; 


pL‘»C«(5)«TVI 

004a 


5LkC<C<^)»TX£ 

0049 


PL">C'^(7)«TV2 

0050 


BLPC<t5)«lXl 

0051 


aL7C<<7)«lYl 

0052 


5L''C< (10)8 1X2 

0053 


PL’C<(U)«I¥? 

0054 


(UMT«1,N4Ml» ’[ 300,1 3 |PpOEF,TMP», type* *UNXN 9WM» 
j r ?»►•** M,'4Fi:5 .lATTEri * ) 

005K 


-4!T- (l)7l.«l.< 

0056 


ClfcbP(0N|tT8l) 

0057 


TAIL 5&Q>lkSn«Bt-63) 

005P 


CAUL U'UREF(b3) 

0054 


call 5-.41TFR(53> 

C06O 


•P5v {UMTel,vAvV*tt3C«i,i JIRcOFf ,TnP» ,TyPE«»UNKN«!WN’ 
1 F/,'<‘'*»!|NF/Pi44TTcn’ ) 

0061 


“EAT'd )RLkCK 

0062 


CL"5f- ('-'M1T«1) 

0063 


IF(iiPLAG3,FQ.0>6FLAG3«f L 'Cft?) 

0064 


■jrUA ;?s3L2CK{2) 

0C65> 


or r 1 

0066 

59 

ire ^ 1 AQp.Fc.oii ' Tii i.ic 

0067 


(c6IT«l, iA«t>#*t300,l7FIfct OS.TMP' ,TVPF«»0LO', 
\ »nATTfcPM 

0C6,i 


6t;4 !d>XFU^ 

0069 


!»'<• r-vi T? 1234 

0070 


r,’ iri isitAruP 

0071 


art ,(i )(DL'iC-<(J), jel.3>, 11, I?» (f lELD( J, I ) , J«l, 



1 ?•' aXv) 

0072 


'V( 1 )ol? 

0C73 


ri’r-'C 1 )«ii 

0074 

101 

tf'?' TI.' Uk 

0075 


I'F l^'J t * l.MPL*' 

0076 


r?- %''? j « ItZ^MAXv 

0D77 

lOP 

5ATs(.J,l)«Ff ONCCF IFL»^(J,’)1 

0078 


cl^rpcumt*!) 

0075 


Pfc 6543 1 • l,‘'C:TS 

OOPn 

6543 

:.<L«t*tLtI )*'’LABPL(I> 

OCfil 


Call rLGr«T( ■iF».ti,6V,nATS,DCD!',RLABEL) 

0062 


ITLa'3«1 

0003 


DB 6542 1 m l,Mr^TS 

OOP4 

6542 

rUAr>L U)*PLAbFLU> 

CC55 


5z Tv ion 

rcpfr 

1274 

C|.f5e(L\iT«l) 

0007 

lOr 

C?r'TlvUE 

0068 


lNCL''re •C3Cr,33cAMSAVF,TXr’ 
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PA6E 3 


mm^4 IV-Pi.iJS V0?-04 12lS2t*i9 

fLDOCF.FTN /TPi?i«C*^8/wR 

0QA9 • 0PEK(lt\IT«i»NAMfi«*t5t<C#llU?8At,T‘»Pll*,»^ORMr*UNf’0RMATT6O», 


* 

OOH • 
0091 • 
009? • 
009i • 
0094 « 
009§ « 

0096 « 

0097 • 
0099 * 


I TVpSi'UMK^K! JN»#‘'*f>P«9999) 

M»|TE(nwl 

WP1TEU)C7 

•iR!TF<l)C3 

W»>1TE(1)C4 

U(»ITE(1)C9 

CI,mSE(UN!1T«1» 

T?l 9991 
9999 TVPc 9990 

9j»90 F^P'^aTciX, ‘ apF?' rAILU^c 0K caOC.llOLOSAl .TMP—NW RESTART! > 


0099 « 9991 

blOG 
0101 


C?vTino^ 

CAU 

PNC 
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lO.X 


1 




iv#i nl8 woa»o4 _ 

OfUfLO.fT^ /TR|BL0CK8/I«^ 

8u9b«utin 6 oftrunn#) 
ittPLiciT measR <a-zi 
UICLUQE *CSQ0i33eAMSC8HifMMei 
include *SVlC330i33CAMSRARAMt|NC* 


_ iS|3319S.. 


fAOLX 


0001 

0902 

0003 

0904 

0009 


0006 

0007 


. ±ABAIiSJ.eSL ^XCATtOOi H6Mil8lOaAJ!Al6MJ!H#tlllRI R«100«NLIW.;ilZiHA3gLailfl- 

liHAXV«UiNDOTSa269.0LSRlRalO|OSSK|PllO,MAxACOB6«MAVACCB4i 

8NOSPWDi6»N0DTU!>6to 

BOUIVaLENCE CCl«ACf«ATE)f (C7*lSfQ)*(CS*PFLA8)«(C4imMeSfD|8K!0} 
integer Cl(469)*C2C296)|C3(71)«C4|348)tCS|629) 




0800 

0009 

0010 


oon 

0C12 

0013 

OCIA 

0019 


C016 


iNlEfER aqaate, SUBCAT, S iiOP2PiCATKMiCAIl!L_ 

RYTg CKNVEC,^'eCHAN.M3SUB,D?TCATiD2TCLU 

COMHPK/COai/ACDATE(2,MAXACr),CHNVEC4HAXCHN,MAXACC},N0CHAN,N0SyB, 

lSUBCAT(MAXSUe),8UOPPP(MAyS'jai,CATANT(MAXeAT),CATTH(HAXCAr),N0D0* 

^N0DUt^<'Y*<*P0TCAT(NO0TS),»0TCLU(^P0T8l 

C» 

liyTfGgfi AOATlS,SyKAM,A»JALST,rLOUAV,D«TOAV,P5STEl4T5#T|4 _ 

INTEGGR PDATg2,TnATE2,POATr3*TbATi3,eAtNAN,DISK|O,RAND0H,6R|D 
BYTE rELFL6fN0ACO,<:i/?lLGR,S!;NEL.NSTART,VTVPEl«ALP*ALP0 
byte PCTCT.PCTnTf, VAR, VABp.OLABbL, type 

w/C0H2/tSEQ,C'ELrL6,^0/CO,ACATESC2,NAXACD),80lLQ0<MAXACD}, 

l8UNEl.(^'AYACC),$UtAi>(NAyACD),ir’nATE(2),ANALBT(9)(rLDDAY(2), 

2O0TrAV(2),'4STA«T,\TYPEl,Pt4Tfcl(2),TDATBU2)|POATE2(2»,TOATE2<2)*. 

3PbATB3(P>«tl)ATE3C2),'ik>rAT,CATNA(<(KAXCAT),AlP(NAXCAT)tALP0, 

4 PCTCT(VAyCAT),PCTCT0,VAR(HIXCAT),VAR0 

C* 

INTEGER PrLAGl,EFUC?.EFLAG3,ErLA64,EFLAG5,UPLA61,urLA62,UPLAGS, 


0017 

0019 


1UFCAG4 

iNTgPEff PFUGi'JSKMf T 

C6^•B7fJ/cPM3/PkAft,''SK«^'t,ErLAGl#FFLAG^,BFLAeS,EFLAG4,eFLA89,UFLA0l 

l,UFLAt,2,UFtA63,UFL«G4,KiEwL40(r*AXSLP) 


0019 

oo?r. 

0071 


00?2 

0023 

0024 
002 $ 
0026 

0027 

0020 

0029 

0030 

0031 

0032 
OOS3 
0034 

0039 

0036 

0037 


INTEGER TXl,TV1«TX?,TY2,ACrlBP,G,E.DTUINO,C0TAPY,GMlN,6MAX,FUL 
INTEGF'; SPwlNO,CLA'*ND,rL»iK |) 

C0MKe‘v/C0H4/TXl,TYl,TX2,TV9,tXi<!Yl,lX2,IY2,ACOI8P(2),lli(4),6M), 

lB(4),CT<«lNG(9,N'0nTv>'O),SP-iI>O(9,N0SPuO),lPUlN6(4I,NUND0Ti 

2O0TABy(NDeT8),GHlN.GHAX,FUL(2,T),CLAIilNO(e)<CLUWND(9) 

C0MMFN/cOM9/OISK1C.Na%C3»*(vD'*Ts),6R1O(NO0TO},DLAOEl(RD0TS), 

lTYPE«Nr0T8),RECLBC 

BYTE FlBLD<l0*24(f<AXV<il),93),L|NE<24) 
byte IA 

lFtfiFLAG3.56,0)67'f3 999 

0PEN(uRlT«l,NAM8«'C3OO,13FIBUiS,THP',TYPBai0LD’,F0RMa 

1 *oNFORmaTT60* ) • 

PEArdiNFLOS 
IF(nFlOS,EO,0) G9 TP 10 
k0Fl''«i^_LDS __ 

TTb 1 i t 1,NFLD8 . - 

1 BEADdKFIELrCJ,! ),J«l,in*2*(9AXV>in 
GL?SE(UNlTtl) 

3 ':RlTF(Ie,100n)(I.(FlELG(j,t}.Jtl,6),I«l,NFLOS) 

1000 F0PMAt(* CURRENT FIELDS AREI>/(« SOIMSIE,'} *,6Al, 

1 2v)>) 

' ti«^ 

2 wRiTht 10,1001) 

ICOl FMP.Ut(MTYPF numbers PF FIElC* T0 BE DELETBO > •> 
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r 


i 





rMiiji* 

1V«»PLU8 V07*04 43133199 99«6U0»77 PAOE 3 

.OIU^FTJI £lfiUBL&C&&m 

0031 


CALL LlN(t0iLl>:8.TMF) 

0039 


IPIO 

80«0 


80 TO (99,3»3.?*0i4)«|P 

0041 

4 

CALL mPF(IPiLHE*74.n 

^i;. 

’Ou. 

4RITE(6aO09)|«lP*(|.INE(lO)f lUaliAO) 

■ 

D1O0S4 

EOfilLilf f J «319« * 1 1 • .^40AU.MX* f ) . 

0043 


IFUtOT.'JFLDSjOP TP 4 

004|f V 

» ’ ’ . • . i, ■ 

IPUtLO.O) GO TO 9 

0044 

6 

WRtTE|l0,lflO3|CFl6LO(Jil),J«li6) 

0045 

1CC3 

Ff»MAT<»9BELETE NOAli’ (Y)ES/(N)0 > *) 

0044 


P6AOM^*1006)I< 

0047 

1806 

FilfiMAnUi 

00482 


IFC|A',Ee.*X»1GPTP99 

0049<B^ 


IFnA'.EQ,*B*)G0T:i3 

0090 


!FnA,fcC,»N'»6»T’4 

0051 


IFClA.NE.'YMaOTf6 

0093 


F|6LF<7.t).0 

0093 


NEElDr^JFLO*!. . 

0094 


SO T!' 4 

0099 

•> 

lF<NFLPS.kQ.N0FL3)PfcTORL 

0056^ 


!^Pg^U.^'|T«l,^AMB••t3t!O•nF!El.US,TH9^TVPE■♦0LO•»F0RM■ 
1 ’u^-F^^R^ATTSD’) 

0097 ' 


•RITE(1)<*«0FLO 

0090 


IFfnrPLD.EQiQ) G^ T2 9 

0099 


n t t • itKPuDS 

0060 

5 

lF<Fl£:LD(7.l).'^5.0)-R|TS(l)Ul6LD(J»niJ»li2»(WAKVl)9l0) 

0061 

2 

CtPSfe tUMT«l) 

0063 


'JFLAP2*! 

0063 


RPTc'Rn 

0064 

999 

‘/RlTfc(t0,inO3» 

0069 

1C03 

rz»i644T<^ EXIST4 n«:E fLAC rea riLfc ••nPLOSoTHP- W0T SETV 

4 0 ri (^ASi V M9I rfb^i tan lci csTsn . % i i a i i\ 

0066 


4ETyP»! 

0067 

99 

WRTTUI0|1'»C4) 

0060 

1034 

P(!Rh*T<* 0«6o TVPfer "X", SPeruTB# ^0 FIELDS DELETED,*///) 

0069 


»ETU''». 

0070 

1C 

CU<*SE(liMT«l) 

0071 


wmiTF(I0i1OO9) 

0072 

1009 

P09mat<* N{* FIPL*^S Tt* »'ki.64fe, •///////) 

0073 


RETu'** 

0074 


ENr 


^ r . 


- ' 'I'tp 


/s 
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10.2 SQBUDDTIHE FLDRW 




rSORPT.FTN /TR 1 OI.OCKS/NP 


2f«>UQ«77 


CAif.l 


.0001 

0002 

0003 

0004 
.JU109 


0006 

0007 


c* 


- _JUf 80U-T1NB CJjaPJL- 

implicit |MT8aPP(6«2> 

mcuios 'C 30 Q« 33 eA»se 2 HfMaiitef 

I NCLUDE * SV I C800 • 33CAHSPARAM , | mC « 

-gORAMBTEl? !£AKCATlOn>PAiaMaROfl»MftieHMl04«g!XolOOiJIUM»l 
A*MAXVaUiRDOT6a209.DL8K|P«lOiDSlKtPRlO«NAXAeO«6*NAXAOCB4i 
2!ltfl8PV9f6iN00TMD«i6 . . 

E0U|V«LERCP (Cl.ACrATE}f(CR«|8EQ)*(CS*PrUG)i(C4«Txi)*fC9*0|8K10) 
. IfiLlESSR Cll469)«e2(296}«C3(711«C4(340)fC9l029) 


.juioa 

0009 

0010 


OOU 

0012 

0013 

0014 
0019 


0016 

0017 

OOSS 


0019 

0079 

0071 


0022 « 

< 

0023 

0024 
0029 
0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 
0039 

0036 

0037 

0038 

0039 


Ca 


Ca 


BYTE CHNVECi M 0CHAK. NBSUBi O^^TCAT 1 08TCLU 
CeMMZN/£8Rl/AC0ATE ( 2« MAXACC ) 1 CH^VEC 1 MAXfiHN* NAXACCl t MiCMAV* M98UB« 
18UBC AT < hAXSUR ) • 8UBP0P ( »*AX8L'B ) * CATANTC MAXOAT ) , CaTTHCMAXCAT ) * NBDR* 
2N0QUiM?T»<iO0TCAT(L!:ET8)«OEtCLU(N6tTS) 

~ INTEGER POATEBlTnATEotpOATpliTOATlsJcATNAllto! 

BYTE .OELFLQ«M0ACO«S0lL9R*8UNELiN8TART«NTYPEl«ALPiALP* 

BYTE PCTCT,PCTCT«»VAP,VAA0,DLAREL.TYPE 

C0^nP«!/cGM2/ISS8*DELPLCi^>0ACOfAOATE8(8iMAXACD}i80lL6P(HAXAeO)f 
lSUNEL(»A4ACD)*SUNA7(MAXAC0)«IMnArE(8)|ANALST(9)irLD0AT(2)« 
zrOTO AY 12 > » M8TAPUNTYP£l«0iUl£l( 214 TOATEU2) 1 PO ATE21 2 } 1 TDAt£2l2i 4 
3PDATE3(?).TDATG3mi*^8CAT.CATNA'*(PAXeAT)iALP(MAXCAT)fALP0» 

4 PCTCT(MAXCaT)|PCTCT0«VAR1MAXCAT)4VAR9 


integer tFLA61«ErLAC2.rrUAG3ikrLA64iEPLA09«urLAGl«urkA62|UPLA834 

IUFLaGa 

IfJEPE*^ PFLAQiCSKfc'.T ... . . 

4/CBM3/PFLAQ*rSKMMTiErLA6liEFLA02.ErL*63*EPLA04*ErLA69|UF|.A6l 

liUFLAQ2,UFLA63iUFLAG4,»iEVL«>.(((hAXSLB) 


Integer TXt,TYl,TX?«TY2,AC''lSP,B,B(OTNlNO*D0TAPY|6M|N,OMAX,FUL 
INTEGf-P 8PwIN0«CLA*^9*rL0h''i0 

C0mm« i/CCH4/TXum«Th?«TV24lXi.iUil32tJy24AC0|8P(22itli(4}«6(4)« 
l^KAi.L'TwlNncSff-eOTvDl.SP^l* D(9,^-e8PWD)i|HWtNP(4)«NUND0Ti 
23fcTAPY(ND0TS)»GrtIN.u»‘AXfFUL(7f7)|CLAi4NO(8)iCLUWNO(B) 
C4<HH7if;/c6H*/niSKlC.R«'<iT0r'(vD’TG)|OPlO(NDPT8)|CLABEL(ROeTS)i 
1 TYPE(nDPT8>,PBCL2C 
BYTE pWTX,PEV,NViLAB6i. 

rLn«|AH(5)|VBPT£ju2,^AEV»4TYP(3» 

OIMENsIpw »VTX(2,MAXV) 

DATA nu/2H1}U/ 

OATA D^/2hO0/ 

DATA TYP/2H ,9H ,2M / 


1046 

1 . CAu_jUiTRgiil) . - - . - 

CALL F<JTPUTC27.12l 
W«1TFCI0410) 

10 Pi!P4AT(tf OEP0PT DEVICE (T)E*MtNaL« IGIffULO IP (LHnE PR|NTERf>«) 

REAtMiDt20)DEV 
20 ERPNATlAl) 

_JttDUt£9^1il4?»’.D5X4lfl4*Xi). RElWiN _ , . 

IFIDEv.EO.'TM 82 TO 100 

IFCOeVitC.'O*) C*' TP 101 . 

If (OE v.nE.'LM OP T0 1 
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ft# 

0040 

0041 
0040 
0043 

m 

0046 

mi 

0049 

0090 


N IVkPLUS V02*04 

ItiLz miSL?fiKll/til! 

10*S 

CALL ASSIOMUOi'i Pi*) 

MLlNEtlO 

*^RlTO{l0ttOOA) 

i9t yg«9 ^ .. ■ 

^ ' CALL AfeOie»<T8,*PPl*» 
^ WRlTEdP.lOOA) 

" atNKtie 

S0 Tr iflO 
ICn K^alfi 


10134120 P9»AUQ*77 


PAGE 2 


0091 


CALL aSS1CVU2.»T1|V) 

0092 


f<L 1 nE«6 

0093 

10? 

IP«1 

0094 


IPCePlAGI.EC.O) r.t Tt' 30" 

0099 


.)PEM-jf-iTB7»*'AMK*«t3roinritL*'^iT 
1 TvPE**UNKNP'WN*,r?RM*'0''F7RvAT7e 

0096. 


R6AlL<7i2ybf4Cil,6R»«400) > OPL^ 

0097 


IFlN’t'FLO.EO.D) G- Ti-^ 4UG 

0099 


CAU cSuOPNllB.lP, *FieLD OFPI^ITIB^^ 

0099 


««lTF(I'v*100n) 

0060 

iOoo 

F0RM4TC FIELD/ 1ST 2v£ 



XT*^ 9Tm lOTH *) 

0061 


^«IT?tl2fl901) 

0062 

ion 

FioRmatC type ’.IOC YEcTyt) 

0063 


I'RITPCI; »nO?) 

0064 

1002 

F^R-'^aTC •) 

0065 


IC>iT«l 

9066 


'?• 20n I«l,Ni!»FLO 


500 

IFtlCNT.RT.hLl'-ic) 'i Tf 90" 

■*Cj6 

READ(7) f’LDNAM.UAbPL. 'lV, ((-VTAC^^K) 

.369 


TMLA9PL«E0,»1) TYp<?)sD7 

0070 


IF{L‘*"iPLtE0,*2) TYo(2)*D'1 

0071 


Of! i99 J«1,MAXV 

0072 


H0 198 Ktl,2 

0071 


VE°TFX<K. J)4lPYT?(fl, »VTX(Ki J)) 

01, « 

198 

CO'JTlN-L'E 

0079 

199 

CBVTI^UE 

0076 


|»^RITE(TJ;»15C3> FLt 'AM, (VFKTEX(?.K),i 

0077 

1003 

F2RmAT( 1 »,3A2, * 1 IhE*,10t6) 

0076 


’*'RlTE(IlS,l004) TYP. (VERTrXa,K),K«i 

0079 

1004 

FTSmATC* *,342, • PlXL'|luI6) 

0CB9 


►RITE(T2,1002) 

ocei 


IC-'TbiCi T*i 

0C82 

2 on 

CtV.'TI\"F 

00f3 


•►RlTf-t 10,1009) 

0CA4 

IC09 

F^pmatC F\n ?F. RFPJIHT ,M 

OpP9 


CZ‘ TlsUE 

0086 


CL"SHUMt«l?) 

O:07 


^LiSE(UMT*7) 

0^R& 

3CC 

CALL Ul'TPUT(7) 

nOAQ 


V'PITCC IC,1007) 

0990 

lt07 

FOPhATC* (R)ESTaRT 7R fcfX>lT?>*> 

0091 


P|AJJ(jD,1036)0FV 

0092 


IF{CfeV.EO, *R* ) G» U 1 

0093 


RETijP*. 


REP0RT 
3RD 


.20 

4TH 


6TH 7TH 


• 1 ) 
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r0RTftAfi IV-PLUS VoV-04 12134126 29«AU6*77 PAGE 3 

A* A A i ^ A JK A ^ I A J* "''' 


0094 

900 

!f(IP,6T,9)6a T« 902 

0095 


^RlTEdO.lOOO) 

0096 

1008 

r0PMAT<lMl) 

0097 


GO re 901 

0 0096 

902 

C0MTI:<U6 

0099 


CALL aUTPUTC7) - - - 

0100 


URlTt(lO*lO06) 

0101 

1005 

ro9«AT(»s6NTeK **r** fpr Page rOR>iARC»''R'‘ for restart rr 



i»«yM rPft EyiT>«) 

0102 


»EAD(IO,10C6)UPV 

0103 

1006 

r?i»MATtAl» 

0104 


If..(fl£VfN£.’F'l GJ TO 20l . .. 

0106 

901 

CALL 0UTPUT(?7.12> 

0106 


CALL CSGPPM(10,IP, 'HELD DBFi'viTrOV PEPeRT *.24) 

0107 


^RITE(IR.IOOO) 

0106 


WRlTEdO.lOOl) 

0109 


1CWT»C 

0110 


WRlTLaZil302) - - 

0111 


QR TP 530 

0112 

400 

)"HITE(ID«1019) 

0113 

IQlO 

rORnAT(* field DCFlNlTIfe*' FIlE EMPTY *) 

0114 


GO TJ’ 201 

0116 


£NO 


s 
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10.3 SOBRODTIME IR8EG3 


,JMrfl»T(»AN 
IRRE63.FTN 
C 

0001 
0002 • 


^ -1? 1 35 1 01 J2?»AUfi»77 _ _ PAOE 1 

/TRiBlOCKS/wi* 

PBOaiAH PaLfCR 

IKTClUDE »C3bfl|S]CAMSPAPA» .INC* 

PARA»iEtEP MAXCATi60iHAXSUBi6Q«VAXCHNi4«NPlX«l96«MLlN>ll7fHAXrLO«90 
l(MAXV«il»NO0TS>2O9.DLSKlPalO«OSSKIPalOiHAXACOi6«>4AXACCB4« 


0003 


C0HH2N /CU4CPh/X.Y.N•TMM«M.e•lR^'elLl^S(30.30)f AA 
1 ilOP(3267) 

0004 


C0MM0M/P4KC0M/Rt(2),RE(2).PPrt2) 
• ilPfCUfiPlL 

0005 


byte aSFIl£(30) 

0006 


iMlEfiEP . ZS.FP-TR^DCXESg . .. 

0007 


peal H(3Q).a(30) 

0006 


PEAL M« 

0009 


INTESER I,J,N,O0n-E,CU«FIU.L1.L2iMI N,X(30) , Y(30) 
1 tIOHH(30)i4A(37}«P 

0010 


PYTE F1ELD(10*2»{MAXV»1),»‘AXFU0) 

0011 


IMEflEB Th.'',XJMX1.SL 

0012 


IME3EK SL?CK(15)iFEND3R{2) 

0013 


3AT4 SeNSSP/SRPL^iSBrEF/ 

0014 


CALL attach 

0015 


'»P6,M<L'^IT*l,\‘AMEn‘C3C0,ni»RrfeF,TMP* ,TYPE«»ii)LD*»F0RM« 
1 *u JFiJRMATTEO' ) 

0016 


PEA2(1>BL0CK 

0017 



0316 


« 'O' 

0019 


IPA B 1 

002C 


IPAl'.T s 0 

0021 


IP B 6 

0022 


thm = 1 

0023 


10 s IP 

0024 

1 

CALL rSGnpMnP,If>A, *FI£l' niSPLAY/DEFlME 1,0 5/77'i29) 

0025 


IFST B 0 

0026 

41 

CALL FAKru3r;L"'CK> 

0027 

401 

\FL » 0 

0026 

42 

CALL cSOnPWUPi IPA, TlbL" 0 1 «:PL4 Y/OEF 1 ME 1,0 5/77'»29) 

0029 


CALL FLD'' AM('iFLDS,FPTR,,'irL,C"TlL,0CIc8F,IFST,riELD,IP 

0030 


!F<'^FLrs.nO,O)G0 Ti" 6J5 

0031 


lF(CUqFlL.PQ.2.A‘'r'.IFST, E.l» Se T? 777 

0032 

38 

•■'RITE{A,39)itfS 

0033 

30 

r^RHAT(/'l(Z)UTLlMF FI^L’’ R <«?)HADE AREA ',Al,' > ') 

0034 


U • IP 

0035 


CALL lInupiaa, p, in 

0036 


r,;» T'^ (505, 401, 1.3", 45, 4-2), IF 

0037 

402 

CavTiN’JE 

0036 


2S«AA(1J 

C039 


IF(AA(1),EP,'0')S0 TP 46 

004C 


IF(A4{11,N?j'S' )3C TP 36 

0041 


IPAIVT«1 

0042 


G0 TC 45 

0043 

46 

IPAIMT«0 

0044 

46 

C0MTIMCE 

0045 

47 

IFICJRPIL.EO.OCALL SWCL*" 

0046 

43 

wRITC-(6,i000)T!.^ 

0047 

1000 

FPRmATF ' 901SPLAY 0M THEMF ML^bER ? ',ll,' > ') 


C* 

READ T'^f'^E MUMBEP 

0046 


IP B IP 
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riRTRAN tV«PLUS V02«04 
IRRgSa^PTM /TB.iBLgCKS/ hR 


12135 I 01 2««AU0*77 


PAOE 2 


0049 
JOSO 

0051 

0052 

0053 
0flS4 
0055 

0054 
0057 

0050 
0059 
OQAQ 
0061 
0062 

0063 

0064 

0065 
.0066 
0067 


40 


77?. 




?7 


CALL LlN(tPtM.l"*lF) 

_J»a^TO (S05t30«l«43.777UQ)U£ 

PaO 

CALL lNTFF{eUA*74,THM) . 
IFCTHM.Le.O.PR.TMM’.OTiO) QP TO 47 

l-S_JJ 

N » 0 

BONE 1.0 

CAUL RPxTOS n X , I V , nOr'E . I del » CURF ! L . PPTR t p t PLO t N ) 
IF(B?n6.>!6.0> so T’> 6 
IF<I06L‘.“E,1I 00 n 4 

SB jSL - 

NN ■ K' 

IFCDJ'MEiEO.l) N ■ K ♦ I 
IF(^tl.E.(l) 6P TO 3 
IF(NiEOii) 60 TO 27 
CALL SCUlNE(SD) 

CALL SPPN T< - - 

N • K‘»l 


0068 


DgNg • 0 

0069 


1 i ! - 1 

0070 


60 T? 33 

0071 

20 

i»«ITE(fctl007HMAYV»l) 

0072 

1007. _ 

F®Pi^ii(* YRy HAVl ATTE^'P 
' 1 * TwE' last CP*RnER was 

0073 


CAUL PUTPUTC7,7,7> 

0074 


• 1 

0075 


D0NE s 1 

0076 


Q0 TP 6 

CC77 

4 

IFC^.L^iC) SP T» 44 

0078 


iF<X«iM).EQ.IX,AN~,Y(N),E 

0079 

44 

M s ^ ♦ 1 

0080 


IF{m,GT.(MAXV»1)) Gi8 TP 

ooei 


X(N)»1X 

0062 


V{N)»IV 

ocas 

0084 


SO » 1 

CALL S0P*.'T(X,Y.N.S0,THM) 

0085 

6 

IF(N.GE'.2) GP T0 7 

8086 


lF(N,E<3,l.ANn.O0ME.EO,l) 

0087 


DONE n D 

0086 

__BB89 

0090 

33 

CALL 1WS(‘'200) 
60 TP 3 

7 

NN « N 

0091 


SO « 1 

0092 


IF(0!*nE.E0.0) G0 T7i h 

0093 


] B N 

0094 


J i 1 

0095 


N * ♦ 1 

0096* 


xTn) t in) 

0097 


B Y<1> 

0096 


GiS TP 9 

0099 

» 

I B \-l 

0100 


J B '1 

OJPl 

9 

xjHxiBX(j)-xn) 

0102 


IF<jUMXI,E8,d) Q0 Tfc 10 


i MORE JLHXN 'ilR# ' 
YOU ARE DONE.'//) 


CORNER?',*/ 


'60 T? 3 


70 


r0PTRAN IV*PLUS V02-04 l2lSSl01 29«AtiQ«77 

l?l»665,rT^ /TR|Pl0C KS/WP 


0104 

0105 

0106 

0107 10 

0108 

0109 

0110 11 

0111 
0112 

0113 

0114 

Oils 

0116 12 

0117 

0118 

0119 24 

0120 
0121 

0122 13 

0123 


><n)»rL0AT<v<j»«v(i)»/xjMxi 

60 TO ll 

IGMBUUl 

Mn>»o 

91US0. - ^ - 

CAU S''LlNF(SC) 

N .9 

IF(N.GT.3) 6P 70 1? 
ir(M.£Q.3.AND.D0N8.E8.1) G? T0 12 
IF<fti.LT.3,A!Vi0.D?NE’.60,l)r-a T'» 900 
M Te J3 _ 

Ll « I 
L2 « 1-2 
Klw s l*O0\£ 

IF(L2.'5EiMIN) 60 13 

lF(Dt«Ne.M6.1> G0 T’! 3 
53 T? 5fl0 
LlPaLl*! 

L2f>»L2»l 


0124 

0129 

0126 

0127 

0126 


I^^L1P..5T.^ )L1°»1 
ir<L2P.GT,‘ )L2P»1 
IF( IQ'1^{Ll),SO,0> T; 1« 
IFllS.i3(L21«N£,0) r.l T2 IS 
XBsx(lI) 


0129 


YB « >!(l2)iiX?*5(L2) 


0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 
0136 

0139 

0140 

0141 

0142 

0143 

0144 
0149 

0146 

0147 
0146 
0149 
0190 

0151 

0152 
0193 

0154 

0155 

0196 

0197 

0158 

0159 


36 17 

14 IF^5^•'»(L2).£G.0) 3? T'^ IB 
XBsX(lP) 

YBsM(l1)*X?*9(L1) 

63 T'’ 17 

15 IF(X(L1)*NE.X(l2)) 60 T0 23 

IF( (V(Ll)-Y{L2 ) )»(Y(L1P1 -v(L 2 >>.LE,0) 36 T? 21 
lFUY(i.l)-Y(L2P) )*(Y(L1 P)-y<l 2'^M iLe.O) 60 T? 21 
IF( (V(L2)-''(L1 ) )*( Y(L2P5-y{| 1 )»,lE, 0) 00 T!" 21 
lF((V(L2)-YtLlPJ)4{Y(L2P’-Yai'’>)iLfc.O) 50 Tf 21 
G6 T’' 23 

21 WR!TS(f ,t003) 

1003 F0RMaT(* Ban (DELETcD 

CALL i^UTPuYt?) 

60 T"* ?2 

16 ‘IM ■ 

IF(M^.^F.0) 50 T9' 19 
IFCB(L2)*NiE,3<Ll)) Tf 

IF((yai>-X(L2))4(v(LlP)-X(L2)li!.k.O) 50 TF 21 
IF((X(L3 )-X(L2P))»fX(LlP)-''{L2P)),L£iO) 50 T’ 21 
IF( (Y(L2)-Y(Lin«(X(L2P)-ML1) ) .LE.O) 69! T0 2l 
;F<<''(12 >-x(L1'’))*(X(|.2P)-v{i,1p)),lE,0) 50 T0 21 
60 T0 23 

14 YB t (P(Ll )-r(L2) )/YV 

Yfi > y(Ll)*Xft*“(Ll) 

17 IF(;X(Ul)-VB)«(X(LlP)-Xb),'^T,U) 50 T3 23 

IM (X(L2>-yB)*(X<LPP)-XB) ,'^T.O) G0 TF 23 

IFJ 50 T* 23 

IF ( {V{L?»-Yy)«(Y(L2 P)-YB) ,lE.O} 50 TF 21 
23 L2 « L2 - 1 
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rVRTDAf) 
_JW£Q3j 
0160 
0161 
0162 
0163 
‘ 0164 
_ 0165 
0166 

0167 

0168 

0169 

0170 
-0171 




IV.PlUS V02.04 12135101 ?9m 

FTii /TRi8LgC K S/»ff 

00 TO 24 

500 ltC0Ol6SF,Mi,0)ag TOJftl 

00 502 K ■ l.N*l 

JX«BEm*(X(K}«Rl(l}).9RSr(l)4t5 

gYaRE(2)*(V(K)«RI(2))»RSP(2}*(5 


FIGlO(2*K4B.FPTR»«JV 
J2 continue 

FIPLn(»,FPTR)«N*l 
]i SD ■ 0 

K 8 IV ♦ I 

i£«IPAliiT*&Q4 0>GP Tg 526 
rg 503 N 8 2.K 
CALL SPP'!T(X,Y,N.SO,THh) 

>03 CALL S0LINE<SD) 

N 8 ^ ■ 2 
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- CALL COB PEF . 

)6 IFCmFlDS.EO.O) Gf‘ T3 505 

504 GB T« <2 

505 CALL o6T»CM 

0PFN ( Tti,NA»»E8» £300,15 iPRPtF.THP*, TYPE* ’OLD* iF 0RH8 
i 'u^.rPRvATTED') 

!i8lT?:(U?L?CK . . . 

CLESE(L'mT81) 

.CALL SeTKF(53) 

ENC 




10.3 SHBROUTINE IRBBG3, , 

A flow chart for thi. aubroutin. can ba found in volume 1, 
page 3*168 • 
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10.4 SOBRODTINE CORDEF 


A flow chart for>^thia suhroutlne is not available. 




10-21 


10. S SOBBOOTIMB PAKCP3 h 


HreO TRAN IV.PLUS IIJJAUI llJlAUQ-77 „ - „ PAttL.l 


FAKCUS 

0001 

0002 

0003 

0004 

♦ FTN 

( 

/TR|3l9CK$/WR 

JUlflaPuTlNB FAXCU3laL0C*ti 

C0HMRM /CURC0H/ |D(1112)|1A(37) 

C0riN0N /£AKC0M/R!(2)«ROC2i-..llSEi2l 
» »IP(CURF|l 

ivtbbbR S - 

0005 


IRTgBEO CURFIL 

0006 


.IRTESEI* SLMKdSl 

0007 

2 ' 

uR1TE(6.1000) 

0006 

1000 

F0RI1AT('*USE- LATEST IMA0I_D1SPlAY C00RDINEN'^« <Y)ES/<N)0 > *) 

0009 


RSAOCto.lOODlA 

JttlC- 


-EgRilAJ.(3.?A2J - 

0011 


IF<IA<1),B0,'Y») G'’ T0 1 

0012 


IF(UOJjNE.'N') GM0 2 . 

0013 


4RITE16.1002)(8LPC‘<(I)*1M,74 

0014 

1002 

F0R1L*J(!*CP0ROINAT5S F0R DaTA 8A8B IMAGE •«4(IS«lX)i’ > •) 

0015 

10 

1*0 

0016 . 


REAHtlP^lOfllHA- 

0017 


CALL I'JTFF(I,l4,74,t.Xl) 

0016 


CALL If'TFF(liIA,74.LYl) 

OOlv 


CAUL nTFF(l,lA,74,LX2) 

O0?C 


CALL nTFF(l,lA.74.LY2> 

0021 


«RlTE(6.1003)(4Li*C<(n*l«8.11) 

0022 

1003 

F0RMAI (!*C2iR0 I nates .E2P JillPLAT IMAGE SAinilX)!' > •> 

0023 

15 

I«0 

0024 


MEACdP.lOODlA 

0025 


CALL IfiTFrn.lA, 74,1X1) 

0026 


CALL l'^iTFFn.IA.74.lYi) 

0027 


CAUL r-‘TFF(I,IA,74,lX2) 

0026 


^LL I-f:lfEIIjlA4 74.lY21 

0029 

3 

1X1 • Iaa*D(|X1,511) 

0030 


LYl > lANOdYliSll) 

0031 


1X2 ■ tAND(lX2«511) 

0032 


IY2 • IA^0UY2,511) 

0033 


RKDsIXl 

0034 


iUU'lYl - — 

0035 


RDU)bLX1 

0036 


»D(2)bLYI 

0037 


IQ B O 

0038 


too s 0 

0039 


IF(LXl.L'?,LX2) T3 4 

0040 


IQ ■ . •? - - - - 

0041 

4 

IF(lY 1,LE,LY2) G? Tia 5 

0042 


103 * -2 

0043 

5 

C0MTI.VU6 

0044 


RSr(l)BFL0AT(LX2BLXl*l*IO)/<lX2*IXl*l) 

0045 


RSP (2) BrL0AT(LY2*LvlAl*IOO)/( I y 2«1 rl*l ) 

0046 


-WRlL?liilM41LJ{li.UUi^l.Y2 

0047 

1004 

r0PMAr(< DATA 8ASE C00RDtNATES >*415) 

0046 


-RlTe(6,i005nxi.lYl,IX2iIV2 

0049 

1005 

r0OMAr(' DISPLAY CPOPOINaTES >'4l5) 

0050 


■<RITE{6,1006) • 

0051 

1006 

r0RHAT< dPP0CEEO (Y)£S/(‘J)0 > •) 


^mz 

0053 

005a 

0055 


iruAti).Me,»Y*)fie t» 2 

RETgDM 

LXlta'u<»CK(4) 


1 


? 


WT»AN IV. 
fAKCU3,FTM 

0056 

0057 
0G50 

0059 

0060 
0861 
0062 
00^3 
0064 


Pius V0S*04 



UVii6L0CK(5) 

Lm6L0CK(6) 

LV?vBl0CK(7) 

tX3filL0CK(F) 

lYliOL0CK(9) 

.JX^fSLOCKdO) 
IV?«sIl0CK(11) 
Q 0 yj> s 

EM) 


10I36IU 


2«.AU0*77 


PAOE 


10-23 


10,5 80BR0DTIWE PAKC03 

A flow chart for this subroutine is not available. 


10-24 
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iF(C"«F!i.''e.O) ni, TR 1 
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1 • r 
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call I Trrn,A,74, i>) 
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10.6 SUBROUTINE RDXYD3 


A flow chart for this subroutine is not avail^U^le. 
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10.7 8UBB00TINE SPLINE! 
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10.7 SUBROUTINE SPLINE 

A flow chart for this subroutine is not available. 
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10.8 SUBROUTINE SDPNT 

A flow chart for this subroutine is not available. 
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10.9 SUBROUTINE SWCLR 

A flow chart for this subroutine is not available. 
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10.10 SUBROUTINE SORT 

A flow chart for this siibroutlne is not available. 
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CALL *.41^ 

Call i '’T{T« m,bask*j»sps 2 , our ( 1 i 1 , an 
CALL w»lT 
4AII • ‘’aSE^SPAN*! 

I « 3. 

I I • I 
K ■ PT(Il) 

U » *»T.{U*1) 

IKv( O .''6,V(L») a* Titf 100 

n » !i ♦ 1 

ipni.LT.30) c'.* m 2 
•'M' r ' ^c^ 

Yf* t Y ( K ) 

.» « 1 
^ ■ 1 


033? 
cn .5 
1034 
0 33 S 
035} 
P33 7 
033- 
3 33 i 
0043 
0041 
0942 
PC 4 3 
C044 
034U 

0046 

0047 
O04S 
0049 

eoYo 

o:si 

0092 

0093 
OO^A 
0059 


J 1 *^4 ■ 2»(J»l)*K 

L « ' 1 iSUK.I) 

IP<L.'r.i.t>) G"l T<l 1*2 
IFn'-(L) .63,0) 5* T/ 133 
w4(nt«<L) 

*.2 T I?* 

l::* lF(l(t5 . ‘B.O) 52 7" 134 
< 4 ( 0 *Y(U 

irCM* (A > .3 T,m(l* 1) ) MiCKl^YCL^l) 
8P T-' I ■'9 

134 yM»4a)>/M(l ) 

ICS K t K ♦ I 

ifck.lS',?) 8s Tei j“.i 

< ■ «-•{ I ) 

L ■ i^4{2) 

n M VM-BAgg«l 

lO • ? - 0 • <P /?)#2 
:«C9M>/? 

92 1''6 m 2 ■ KfL 

13^ CALL .?tTSgT(X2.Bl'F(l«0.9C),l) 

J • J ♦ 7 

iFtj.Lp.so) 60 r* 1 
102 Y\ ■ V^ ♦ I 

IF<YL'.LE.PA*) go T2 107 









rORTHAN IV-PlUS V02-04 <2136132 P9«AU0*77 

/TWtBLBeKI/yP 

CALL tWT(THH|BA86»RPS2iBUF(lil.lM 
CALL- WAIT 

CALL tWtCTHM(BA66#l,SPS2,BUF(;il*2)) 
CALL WAIT 
span • ino 

if tY»<48P4N.B&,tai2) BPAiif - - 
BASE ■ yN 
MAX • yK'*S»AM»l 
SP«2»SFAN/2 

CALL lRT<TMHieASEt<;PS;iB'JF(l|l|l)) 

CALL WAIT 

CA LL !W T(T HM.BASfe* l. SPS2« 9ULl UI j 21 ) 

CALL WAIT 
K ■ PT^(U*l) 

IFfyN.LEiYIK)) GP TC 4 

I « t « 1 

II • !l ♦ I 
IF(!.LE. yi_GF TP 3 
CALL I wT<TwM,btSE*«PS2»6ura»l»l)) 

CA..L -AiT 

CALL I-TCTmm, 8ASP*1 .SP?2,6liF(l,l,2>) 
CALL 
RETj'?^ 

ENS 


0096 


0097 


0098 


0099 


' 0360 


..0061 


0062 


0063 


00A4 


0069 


0066 


0067 


0066 


086V 

1C7 

0070 


0C71 

2Qo 

0072 


0073 


0074 


007S 


0076 


0077 


0076 


0079 



PASS 2 


10>38 



1 




10.12 80BR0UTIME FiLDMAM I 


-Mf?RTRANLly< 

fldnam.ftn 

0001 


•PJ.US 1?J39|00 . 29-AUQ.77 PA6B 1 

/TR|OL0CKS/H9 

SUPROuTINB FL0NAM(MFLD?iFPTR,NrL.CUR06r.00iesr,lPST, 

1 FIElOiIOiNPLOS. BLOCK) 

IMPLICIT INTEGER (A • ? ) 
include •CSOO|3]CAMSPA9Am,|NC 

P*RlM6lE?.t!AXCAtlO%HAX5gB,^tl,MAKCHN94.NPlX«l90,NLlN»ll7iMAXrLDi50 

liHAXVBll»NO0TS«2O9.DLSKlPtlQ,DSSKlPaiO.MAXACDB6|MAXACC«4| 

2N0$puo«6iNPDTWDfiu 

RVTE PlELD(10*2*(MAXV*t).MAXrLD).l.|NG(74) 

Byte pustihaxfld) 

Integer nLBCK(iS)iPUD0(2) 

axi£ c<iua( 2 i_ 

data U«/'U'i'0V 

data duo«/»du», ' nev 

IF(NFliGT,O)O 0 T-^lS 
IF(IFST.EQ.O) Q0 T0 2 
TI ■ IB 

-MfillEi 10.1000) 

1 F0FmAT( 'TH0RE fields ? (Y)E<!/(N)0 > •) 

CALL LlNdP.LlNfi.Tl.in 

G0 TD (99. 3. 3.3. 1^.4), if 

tF<LlNE(l).EO,»N') G(*T » 99 

IF(LInE(1),NE,*Y') G<* T0 3 

60 TP 5 

CONTINUE 

CK«»C* 

DD1ESF*8L0CK(1) 

10 ■ BU0CK(2) 

TI s 10 
EF*BL0CK(3) 

0U * oi 

IF(BF,^'E.ll)G0 T0 29 
NFLDS * n 
G0 TP 30 

0PEN( jMlTBi,NAME«'t3C!OillFIELD8,TMP*,TYPE»'0LO'. 

1 F0Rm*'UNF0RMATTED' ) 

RGAn(l>NFLDS 
NFUDSF*NFLPS 
IFCNFlCS.EO.O) GT T0 31 

00 6 I ■ IiNFLOS 

READ(l)(FIELD(J(I).J«li2*(HAxV.l)«10) 

CLPSE(UNlTtl) 

continue 

IF(NFlDS,EO,P)R0 TP 30 

URITE(I0ilOOl}(I.OUD0(FlFLC(7t I)«3).(FIEL0(J.I)»J«1.4 )iI* 

1 i.NFLOS) 

1F(DD1ESF,EO,0) T0 t 
IF(nFlDS,EO,C)Q0 T0 99 
CU90E; ■ 1 
URITE( 10,1002) 

2 FBPmATC input CaTAGPRV name 0R FIELD NUMBERS T0 BE DISPLAYED.'. 

1 * D(0)/D(U> > '/) 

L F0RMATC CURRENT FIELDS aR6I'/(4C ('iIS.') '.A2.2X.6Al)>) 


0002 

0003 

0004 • 


0009 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 
0014 
0017 

ooie 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 


0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 


(Y)ES/(N)0 


NfL. •--0 

CALL LlNdP.LlNE.Tl.in 
00 TP (99. 8. 10il0.10.il). IF 
IF(lFSt,EQ.O)Q0 T0 5 


10-40 


QUALn* 






4 > 


r0RTRAN 
— JPUDnaBx 

0091 

0092 

0093 

0094 
0099 

0096 

0097 
0090 
0090 
0060 
0061 

- 0062 

0063 

0064 
0069 
0066 
0067 
0060 

0069 

0070 

0071 

0072 

0073 

0074 
0079 

0076 

0077 
0070 

0079 

0080 
0081 
0082 

0083 

0084 
0089 
0086 

■ 0087 
0088 

0089 

0090 

0091 

0092 

0093 

0094 

0099 

0096 

0097 
118 
mr 

0100 
0101 
0102 

0103 

0104 


lV»9LUt 
£Iil 


121391 00 2f«AUa«77 


V02«04 

/.T2JPL|CKl/i« : 

00 TO 3 

.11 _ _ 

irsT • 0 

uiLUiiiii) «eo« » 0 * j 00 . Tt _ir 

0U • «2 

ir C LlNttir.BQ, »U»10I-Tf l i— 

19 ■ 0 

. B0-13 J • liNfLOO 

CALL lNTrr(19,LlNE.74|IQ) 
rj^TiD.io . 
iriFUSTniifo'iOioe t0 14 

jtfkj J»i 

00 TO 19 

NFL • 0 

DO 16 I ■ liNPLOS 


9601 2 


13 

U 

12 


IP(PlEkD(7in.NE'.0U}O0 T9 16 
NFL ■ NFL ♦ 1 

FLLSTtNF DwI 

16 CONTINUE 

19 IF(NFLiEO.O) Q0 to 1234 

F9T9pFLL 9T(NFL) 
tF(FPT9.EQ.O) 00 TO 3 
NFL 'NFL • 1 

.„-MPUS.«..l„ . 

IFST«lF8T*l 
CU902F ■ 2 
RETURN 

1234 WRITE(I0.1239) 

1239 F0RMATC NO FIELDS SELSCTEDi TRY AOAIN. . . • >//) 

_ 00 10 9 _ _ _ _ . . 

7 ir<NFLDS^,LT,HAXFL0)6O TO 20l 

WRtTE(l0«lOO3) 

1003 F0RhAT(« too many fields’, delete one PiRSt,*//) 

00 T0 99 

201 DO 292 ! ■ li6 

292 FieLO{l,NPLOS*l)R« • _ 

17 WRltE(IO#l583)'<PfELD{IiNFL05*I»ifRl»6i 

1004 F0RHAT('S1NPUT Six CHARACTER NAME FOR NEW FIELD '»6Al|t > •) 

CALL LlNUOiLINE.TftlP) 

00 T0 <99,17|17#17,20|18),IF 

18 00 19 I p i<6 

11 ll|LDll4NPLP84A)»isl!if^ > „ 

10 w«T6(lO.loofTu0l0u^3F 

1009 PORmATCSINPUT CATA60RY 0F NEM FIELD O(0}/D(UI *iAli* > •) 

'CALL LlNdOiLINE.tif IF) 

^70(99, 17«20(20. 22. 21)iiF 

21 Our *i 

.6Q. «0«) 00 TO 22 


^fiUj|ilL 


20 


22 

23 

1006 


I.F(LInB(1).NEi»U'L80 to 
FiiLO(7,NFLDSRl)a0U 
FIElD(8(NFLOS#1)«0 

WRVtEi 10.1006) (FlSLD(liNrLO$Rl)«i9ii6)iDUl0TflELD(7iNFCOS*i) 

'h^MAT*' F^lELO'liAME ■~''.6Ai/* PAtAfOfcy • * . A2/'IC0NTtl<n 
1 »UB (Y)E8/(N)0 > ») 


FORTRAN IV«PlUS 
FLDNAM,PTN 

0105 

0106 

0107 241 

0106 

0109 24 

0110 1007 


0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 
9123 

0124 

0125 

0126 
0127 


204 

25 


26 


99 


V02«04 12139100 29«AU6»77 PAGE 3 

iIR|BL0CK8/WI» 

CALL LiNUPiLlME.TIiin 
Q0 TO (99.20i2S«?3.23i24i}ilr 
ir(LlNE(l),EO|*N*}O0 T0 17 
ir<LlNE(l),NE,»Y») Q0 U 23 
MRtTE(l0.1OO7)CK 

P0RmAT('SD6FINE field vertices BV (OURS0R 0R <K)EV0«IARD? 
1 .Al,’ > •) 

CALL LlNUPiLlNE.TIiin 

G0 TO (99,23,24.24.204t25)ilr 

L1K'E(i»«CK 

CURDEF « 0 

CK I LlNE(l) 

!F(LIniS(1).£Q.'C*) go T0 26 
IF<lInE(1),N£,»k») Q0 T0 24 
CURdEF ■ 1 
^FLDS ■ 1 
IFST«1 

NFLDS • r-lFLDStl 
FPTR X NFL^S 
RETURN 

•^flds * 0 
9LOCK(2)«0 

IF(\FlDS.EO,NFLDSF) G0 Tp28 

open ( uNI TPli NAME* 'C300il3FIELDS,TMP»,TYPEi* UNKNOWN’ I 
I F0RMe’UNF0RMATTED» ) 


0126 

0129 

0130 

0131 27 

0132 96 

0133 

0134 

0135 28 

0136 

0137 

0138 


w(?!Tt(l)NFLDS 
IF(NFlDS.EO.O) go to 98 
D0 27 I * I.NFlDS 

«iRlTE(l)(FIELD(J.I)fJ*lil0*2*(HAXV-l)) 

-L«SE(UMT*1). 

EF I 1 
eL8CK(2)»l 
BL8CK{1)*NFLPS 
3L0C<(3)*EF 

return 

END 
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11. DOT GROUP CROSSHAIR OVERLAY DOTOVR. 


itfJRTR^N jYj!fiUlfi_XQ2afl« _JJl5Aiai_ SfiiUOsZI. . fiU. 

OSTSVRiPTN /T(*|BL0CKS/WR 

C .... 

ccecccceecccccccccecccceccecccccececcceececccceeeeeeccccccec 
c : _ c 

C RSTUTINE T0 0VIRLAV IHAQS WITH •«! CRIISHAIR MARKS C 

C 

c e 

cccccccccccccccccceeeeccccccccccceecccceccecccecceecccecccec 
e 

p TITLE ‘.••iiiiii'tt.i OST CRSSShMR BVBRLAY 


AUlHSfUi 


(. >-l I lAM 


RBDBLrS M. MSBRIQUi l » LEC 


SVMSSLie NAME OSTRVR 


APRIL 1*T7 


L££4.TIE.^ 1 1 ij ui.i.« 1 . 

SeuPCE LANQUAQE t.i FBRTRaN IV • PLUS 

CSMPuTeR type PPRU/49 

. „0PERaT|N5 system aSKUO 

PR0JECT ..*1 CAMS/ 1 *100 


•.f*t •••• 


loo'i InUlupE' ♦ tSQdiSqcAMRPW, liifi' 

1002 • INCU'OF «8VlC300i3lCAMSPARAM,tNC* 

1003 • PAPAMgrsP MAXCAT«60|MAX8UBii60|MAi(CHNP4*NPiXii9AiNLfM*ii7|MAXfLDa50 

• liMAXVsllfNP TS>209.DLSKlPal0|0$8KIPal0«HAXACDa6(MAXACCa4| 

• 2 N 2 SPWCB 6 *N 0 DTMDaiO 

1004 a equivalence (Cli ACOATE) » CCP« ISgBt > <C3 iP FLA6) , (C4i Tx1» » (CS«D|8K|DI 

1005 a InTECEP Cl(469),C2(2WT;C5T7Ii;C4c34iJ.CFm9r* 

a Ca 

1006 « integer ACOATEiSUBCATiSUBP'oFtCATKNtfCATTM 

1007 a BYTE CMnVEC* N 0CHAN.N0SUBiDPTCATiOf TCLU 

1008 a C0MMF\/C0Hl/ACDATE(2iHAXACC)iCHNVEe(HAXCMNiHmCU},N0CHAR|M0BUR« 

a lSU0CAT(MAXSU8)*SU6P0P(MAXSH8)ieATKNTIMAXCAT),CATTH(MAXCAT)«N0O0i 

a 2 Si 0 Cu.x!'T(r,ijBTCATlNP 0 TS')iO 0 TCLUiN 60 fST 

a Ca 

1009 a INTEGER ADATISiSUNaI. ANALST iFLDOAYiDBTDAV.PDATBiiTOATEl 

1010 a INTEGER P0ATE2«TnATE2iPDATE3i TnATESiCATNAHiOf 8K1D«RAND0 HiQRIO 

1011 a byte pElFlqiN0aco«s0iloRi Sunil* N srARTiNT9pBi(AL0i A lps 

1012 a byte PCTCT.PCTCT0.VAR.VAR0.OLABEL*TYPE 

iTiffnr eBMMeN^cVHi/lseATDilTLs; »0 acq, mlgirruTxACB) , if i lw fRATiwiT — 

a lSUNEL(MAXAeD)fSUNAF(MAXAeDtilMDATBl2)f ANAL8T(9 )«FLDDAY(|Ii 

a 2D0tDAv(2)*NSTARTiNTYPEl«PDAT6l(2)*fOArSil2)iPOArB8(8)*TDATilC2)i 

a jPOATE3(2)iTOATe3l2l|N0CAT,CATNAM(MAXeAT)iALP(NAXeAT}f ALPS* 

a 4 P'CrCT|MAXCAT)|PCtCT8,VAR(MAXeAt)«ViRi 

a Ca _ 

1014 a ■ ' We'QER ■ffLA5r7IfLAtfr,lfrAQ3,BFLAlR,ffLns7ufLAfl£»uTLA6270FCIff^ 
a 1UFLA64 

1019 a integer PFLAO* OSKMNT 


11-1 





riKTRAN 

MTivLi 
eou • 

• 

0017 • 

0018 • 

0019 •. 

• 

0020 • 


V*PLU8 V02-04 12^9131 29*Au6«77 PA08 t 

^ C0NN0K/e{MS/rUO t nSKN)4T * EPUOl « SfL A08 1 irLAQSilPLAOAl f f t AM rUTLAOi 


INTME9 _TXl«lU*.TX2iIY2j4COllfi8,8iOTMlNOiO0TAATjeB|N|OHAX,rUL 
INTeOgA SpWINDiCLAUNDiCLUMM 

CflMH0N/eaH4/TXl^TYl«TX2.TY9^1Xi »l¥ ljlK2il¥2iACDI«PCg)iIIi ii)itl4>t 

lB(4)»OTwlNO(9|M0DTwD)iSPWtMO(9.N08PNO)i|MWlND<4}|NUHD8Ti 

isitm ( mPots ) I qh 1 n . 0HAX j Pia.( St7 ) I clawno c a ) i cluuno c a ) , 

C0MHPN/ceM/DlSKlD.RAND0M(NO0TS}iOPlOCNO0T8)«DLABEL(ND0T8)f 

1TYPB<MD0T8J|PBCL8C 


O1MENS10'^ w(74)iT(B)«C>y(9)«TXX<4)«JX(8}«NPA(1024)tNPB(l024}| 
lKA(2).lMS(8)«lSX(4)ilUV(4).lAX(4),HDATg(9) 

- QlME^iSl0^> D0T0RY(NO0rS) 


byte m . UAIY . NBA aNR6« IM&aIUUIIOaTE 
iNtEfigR^^ xX,MY 
REAL 
imTl 


EC~: AkEMCg (TXl.TXX)«(KK«KA(l)).i(18Xi!HWlND}i 
(I oCl.UxNP(9})i(lAX.CLA^Nn(9}) 


«AT/i tMS/*'l77,«*277,”’537»"357,'’367»'‘373»''S79,'*376/ 


flA <A wDaTE/1H1,1u!>,1H»,1hM»1wA,1hY,1M«,1H7i1H7/ 

(“VER'iZhOI 


: CALI I^lTl 

Call attach 

5 CALL RUTPUT(27il?> 

1 wc!Te(6,iooO»HVERS.HrATE 

IflOO ru»MAT(20x,»A«A« O'^T CR0S5 ‘^aIR xvbrlav • 'iA2t V*ftA3i ' ••••*,//) 


CALL 0-6<’'AV) 
:-LL TlyE(T) 


4R:T5(.A.1^'CJJTj^aI _ 

1-131 j A1,/,43X,9A1/) 


C-lkSTANTS 


_ Ti.i5bC-D81iuq)_ 


8TABT TIM5 


MRJTE(5,ei*LCLAJ^iPiCUUWYB 

F09AATf/lX, *CLAWMDiCLUHN'i*,//tlX»0!8)/) 
r0RMAT(6Xi'O«TARv AfTER 49 k00P'/i <lXilOI4t/) 
r0RMAT(iXi«D0T0Rv AFTER 49 LF0P' •/* (IXi 1014)/) 


• C0YTIMUE 

OBT QRio Coordinates and hag-iificatibn 


I 




n^TRA.4 tV-PLUS V02.04 l2l39|Si 29*AUQ«77 

WTavpJiH /TPiR l^C<8/WP 


C 

C 

c 

c 

c 

c 

c 

c 

c 


ifUkoe • 18 * 

CL^'STE* • tux 

_ CUSSir, - JA* .... . . 

aUERV FRH QRn C 8 eRDr>AT|;S( 


0042 wmT6(4ilon2)I8X 

0043 1102 F09h*mOx,»8ELECT GRID C0?R»1h'ATE8l ' »/*10*i 

1 * • (SJT 4 NDARC . 9 .U 4 » 0 ) . 


0044 MRtTE(ft«1003)|iJ* 

0049 1033 r0RHAT(lOX,« • CUiOSTER ■ '*416} 

C 


0046 

0047 


0048 

0049 
0C93 

0091 

0092 

0093 

0094 
0099 

0096 

0097 

0098 

0099 
0060 

0061 

0062 

0063 

0064 
0069 

0066 

0067 

0068 

0069 

0070 
'007i 

0072 

0073 

0074 


WRITP(6.1004)UX 

iOOA.rGRaATJlO**’ - CL(/! 2 MJriC 8 TI»'’ • *| 4 I 6«^.10 
l/,lOX,'tPPFR left, LRwER R|G«T IMaQE 0I8PLAV 
213 X,*F/L<. 0 ** 6 O RV ,♦♦/» 

3lOX,*bFPER LEFT, L3WER RIGhT OaTa BA8E IMAGE 

4'$ > •) 

C 

CALL F'JTRuT(7) 

« READ( 6 « 2 ^ 0 )W 
230P FG9m4T(74A1) 

lF(«i(i ) .60, »S» )0« TL 10 
IF(k( 1) .60. Ml* )G8 TF 2C 
IFIM(i).60.'A')G6 Ti^ 30 

up jo.eo 

lPTw(i). 5 o.'R')»in T0 9 

JF(W(l).LT,»P*)t?l T0 40 
IF(W(i),uT, '9* )G? tip 41 
IP»0 

00 9 I«l,9 



1234 F0RiAT(6X,'JX(n*,I6/) 

IF(JX(I).LT,fl)30 T;* 40 
IF(jXcl).OT,91?)Ri3 TF 4fl 
9 Ci<VTlM'je 
G0 T" 90 


m 00 1 ? Ill , 4 

1? C0NTI>"J6 
J«5 




jX(j).TiTni) 


j«j*l 

14 Ce^TtMUE 
00 T^ 50 


_9J7? 

0076 

0077 


_i: D 0 J .2 i 4 i ,0 _ 

IF ( I .LE. 4) JXH)»CL*l'W*»D(l' 4» 
IFU ,LE. 4) 6P T2 22 


PASS 9 


,• • 0R INPUT 
CPfRDt NATES ,*,/ 

C00RDiNATE8 ,«,/ 


t 


C 


pertran 

IV-RluS V02*04 12 1 39 1 31 2V«AU0«77 

OATEVR. 

0076 

FT^ 

/TRlOLOeKR/WR 


JXn)BClUWND(l*4) 

007V 

22 

CENTInUE 

OOFO 

e 

?»0 TO 50 

0001 

Sr 

06 32 t«i*a 

0002 


. . Ifll «i£. 4). JXinifLAtiNClliRl. 

0003 


lF(t .US. 4) 6R T0 32 

0094 


JX(l)4Cu*WVDn«4) 

0095 

32 

C0»»TI\UE 

0006 

r 

G0 TP 50 

0097 

V 

4£ 

tlfillitO.lflOS) -- 

0393 

1^39 

r0RM4T(*5 •••• INVALID tVPUT •••• > 

POP? 


CAUL 2UT9uT(7,7) 

0C9J 


60 TR 6 


1# 

C C0HPUTE '<46N1FIC4TI0 ' FACTi'RA tt’. 

' ^ 

CQ91 ' 

5? 

C8*'TIM.'g 


C 

^RIt 5(5,417) (JX(I)i|«lf«) 

0092 

<17 

C 

F09«;*T</6X. ' JX'./» 

0093 

IF<jX(7),nS,O)90 to «l 

0394 


^M5)«l 

0093 



0096 


jX(7)tl97 

0097 


jxcantia 

0390 

51 

C0NTIMJE 

0099 


U>JX(3)«JX(1) 

Olio 

0 

ia»jx(7)-jx(5) 
WR!Tg(5,i237> lA.lP 

cici 

1257 

p^<9m 4T‘6X, 'UiltJ'1219/) 

PX«2 

#* 

HX»(f’L‘'ATnA*in/(rL9AT(I0*l)) 

'XiMX^lO" 


C 

•RITE (5. 1236) JX(3).JX(1).JX(7), jX<5) 

9103 

1236 

rj6^AT</6X,» JX(3», , ,JX(5)*|410/) 

oir4 


IC>jX(4).jx(2) 

niP5 


ID«jx<R)-jX(6) 

0106 

r 

T: 

*1V«(ft«'ATnC*l))/(rL.''ATC 1D*1)> 
^;Y■MV•100 

>*RITE(5,i2S5) mx.-V 

01C7 

1235 

r 

r0BvAi(/6Xj ••*.X,My'j6X,F6.2|6xiP6.2/) 

0106 

IP(*^X,UT,,1)Q4 TP Aft 

0109 

C 

IP(^V.UT,,l)a0 TP 40 


C 

C CR95!iiiI9 EJil-ji.. 

r 

0110 

V 

mx2a3 

0111 


HXV*3 

0112 


HXHltl 


c 


C ThEmS WUM8ER 

C 


MOE 4 


WOR Qij 
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D0T0VR, 

ftn 

/TRlBl0CYS/l»iR 


0113 

52 

C~0MT|nUE 


0114 


wT»8 


0115 


WR1TF(6,102C) 


0116 

1020 

F0RMAT‘1MOi/) 


0117 


ViRITE(6.1006)MT 


ous 

. IQM 
c 

f0RM4.r<** _1 h6H6. MUM 



0119 


CA(,l jjiJTPUT(7) 


01?0 

55 

REA0(6*2000)4 


0121 


CALL FR0NT(U,74) 


0122 


IF<dl(l).EQ,« tlGP T0 70 


0123 


iF<i^a).cQ.»xj)a0 Tt 3cofi 


0124 


IF(w(l).EO.'R')GP rv 5 


0125 


1F(b(1):.I.T,»1')QP t0 6C 

original pack is 

OS POOR QUALITY 

0126 


1F(4(i;.GT,*R‘)GP T0 60 

0127 


IP*0 

0126 


CALL nTFF(IP»W,74.N7) 


0129 

m 

G0 tP JiJ_ 

. ... 

0130 

U 

60 

wRITE(6,1005) 


0131 


CALL 0L'TPUT<7i7> 


0132 


G0 TP 55 



c 

c 

c 

C sfcT D 0 T SUBSET 0PTI0^‘ BY 0TlLl2lN'6 D?T SUBSET P0UTIN6S 

C 


0),33 

0134 

0135 


0136 

0137 
0136 


0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

■ Tl4'tt 


7l C0NTlMJfe 
IQ >6 

CALL D?'TlN{I0»n) 

C 

C ?RDER selected U^TS ?Y LlM*t 

C 

na 69 i«i,.\'Di»TS 
D 0 T(^Rv(I)«rDTARY(I) 

69 rC'Tl\UE 

C‘ ■ U«it^(5,4l9) {OictARYll), 1«1 ,nD0TS) 

C WRItF.( 5,420) (DrT0RY< I). t»l»M30TS) 

73 KFL 6«0 

ne 72 i« 2 ,numdot 

1F<6^T^RY(1-1) ,L 6 *. D0T0RYn>) 60 T0 

KDaT «D 0 T 0 R Y(l) 

paTaRYtl )«O0T0RY( [iir 
D0T0Rv( I-1)»KD0T 
KFLG»i 

72 C0NTUUE 

IMkFLG ,EO. 1) G0 TP T3 

C WRITF{5,418) (O0T0RY(ni!»l»ND0TS) 

■7Tft rPMATTix, *DPfPRY A^t6R 'R0RT''#7i (lX*i'0l4)/) 
C 

C D0TS a«E NPw 0 RDERfeD fV LP'E 

C 


ccc 

C ' 

C D 0 TA*«YTl)Bf 

C D0TaRv<2)»2 

11-5 



29«Au6«77 


rAQE 6 


D0TA<^Y<3)b3 

DaXAPY!4)l5 - 

03TaRy(9)«21 

OaTARY<6Jl35. .... - 

D0TARy(7)i46 

PflTAffV(fl>» 4B . 

» 

’ irni.EQi2)GP' TB IflOO 
lF(II.EQi3)6a T0 92 
. IFtNUMDaT.QT^Q'Cf T0 80 
URITE(6*1021) 

121 FaffMATdOX.H ’ B D3TS F0UN5M 

60 T0 210 

SET DISPUAY 3PT10N 

8f CB^TlNUg 

CALL lufPuf(?7,i2) 

-JiF T IE 1 6 , 1020) 

WRI i(6.1007) 

)07 F0RMAT(1OX, 'SELECT CISPL^Y 0PTl0Nt,/,12Xi 'ItwRlTE 0VER' |/|12X. t2«A 
lOD 0\ -p0 >0T ER4SP r7!T»i/,'$ 3*ADD 0N -FRASE D0T >') 

-CAJ.L- ELTPUT{7)_ 

as READ(6«20QC)U 
CALL FR0M(Wi74) 

IF(W(l).fcQ.' ')60 Tif 100 

IF{W(1) .Pa, »X' )60 Tg 1009 

. IF (iLLl).EQ,'?')Qe. TE. 70. „ — . 

IF(W(1>.LT.*1')G0 n 90 
IF(«(1>.GT.*3')Q0 90 

IPtP 

CALL l^TPFnP,w,74. lOIS) 

60 T7 loO 

“90 WRITE (6, ions') 

CALL ?L'TPUT(7,7) 

60 TP 59 

100 C0'IT1\U£ 

''Cxil 

MCYtl 

IGRIDX'lO 

IGR10y*iP 

IGRpX»( (MX*FL0AT( IQRICX) ♦ 0.9)) 

IGRI0V«< <MY«FL0ATn6RIDr) ♦ 0.9)) 

■'mcx'»( f^'Y^^L0Af(Mcx) ♦ nTsrr 
t^CVt( {lY»FLaATlMCV) ♦ 0.9)) 

IF(my ,i.E, 1,0 ) mCX ■ 1 

IFHY .L£. 1.0) '^CY • 1 

l F(lPlS >E.l)Gg_Il 12J 

ERASE WJNDfcw F0R DISPLAY. 0PTlB’j SELECTED m. 









FORTRAN iv»PLUS V02-04 l2l3«l31 2R«AUQ»77 P*®E ^ 

PaTaV R.FTN /TR i RL0eKS/ i><R _ 

C 

0187 _CAU aLKTHM<JX{l>, jX C2)«JX<_8) »jA<ji)iNT|0il) 

C 

0188 120 . CONTINUE. 

C 

C rflWPUTE CflRRER PR IMT 

0139 JX1«(M*FI.RAT(JX(5»-1)) 

0190 JX2«t|»Y*Fl.RAT(JXC6)-l)) 

C 

0191 421«JX{1>-4X1 

0192 JZ2tJx(2)-JX2 

~C ?r 1 Tc ( 5 , i 0 R o' ) M X , Y , 1 ICX • M C Y » lOHlDX* IGRIDY, Jll. J22,MXT7MXY 

0193 1080 F0PyA_T<8X» •MXi'iYi ! • l^X^|^'XV• ,^»8X|2F6i2il4l6/J 

C WRITE(5,1081> 

0194 lOPl F?9vATt///6X, • LEBU3 PPl-'T*/) 

C 

C DRAW C^iriSs' THFME , ,V 


0195 Ksl 

0196 «200 t,*JE24lG9IDY-MXY-MCY 
C 


0197 LL»2»MXy *M0Y 

0198 LM*LL/2 

0199 LL«LL-I.M 


C 

C 

C •••• PROCESS Each D0T •••« 


c 


0200 


DK! 219 I»Oi\n^TS,l'» 

0201 


y«J2l*TGBpx-rtCX 


U 

'<RlTE(5,104l)L,H.L»'»LUiMV,yX, JX,«l4RT,NUMO0T 

02C2 

1041 

F0Pmat(/ 6X, ‘PRINT AT 1041', 4l3t2F6i2, 1216/) 


C 

i (D!^TARY(nn,iiiii,NJMn0T) 


c 

WRIIP(5,«I199) jX(2)i JX<4) 

0203 

6199" 

' FaPyAT(6<f ' i , J,K,L»M, JV(7), jy?4> ll9* ,/,2X,7I6/) 

0204 

1040 

FPRyATd'iP) 


C. 

are drts selected 

0205 


IF(0!*TJ!RV(k) ,GT,14T9)G^ T0 200 


c 

44ITE(5,4190) Lf 'XY 

02JD6 

H190 

F3P«at</6X, •L,‘’XY 210‘,2l8/> . ^ 


C 

— “ ~ InSIDE pf y*c«0T»5inTTES 

0207 


IFCL*y<Y.LT, JX(2) )Gl/ T;‘ ?0n 

0203 


iF<L*yXY.6T, JX(4) )^E TE 201 


c 

PFAO lines FRPM theme 

0209 


CALL l9T(Nt,L,LL*NRA) 

0210 


CALL -‘‘A IT 

0211 

c 

CALL IRT<NT,L»1,LM.^R8’ 

0212 


CALL wXlT 

0213 

n 

KWRTbO 

0214 


00 166 J«1.19 _ . . 

0215 


IF(D0T2RT(K) ,NF, I*J>Q0 TO iBf’ 


c 
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lAi: 




IF(M.lT'.JX(1))Q0 T0 180 
T8 JJO-. 


Sil CR0GS NARKS IN RUPFGR 



[•Ml 


LKB>1 

K MRT wi 

UXBl 

WRItE(5, 1040)1. J.K.LiM 

npTirjiBi.MXY 
IF(LX.EQiO)67i T0 130 
00 125 JJ«1|MCX 
LA«H»JJ-J 

CALL SETeiT(LA.NRA(LKA) ) 

,_CLMTLt;yE - . 

LKA«Lk4*64 

LX>0 

60 T? 135 

00 132 jJbI.MCX 

LABM4JJ-1 

call SFtBIT(LA.NRB(LKB)) 

' C0MInUE 
LKBslXR^AA 
LX«1 

; C0\'TlNUE 

0” 160 JI«l,BCY 
. 1 F(LXiEQ.'’)50 T0 150 

UJ 140 Jj«l,MX2 
LAbm.«x24JJ-1 
CALL SeTeiT{LA,NR\(LKA) ) 

I C0NTI_(mUE _ 

IF(ID1S.NE,3)Q0 Ti’! 146 
00 145 jJbI.MCX 
LA«M*JJ-1 

MB«lA-MA#8*1 

!?tEKA*Ll$A - 

NRA(MC)«IB1C( iMS(flE) tNRAfUC) ) 

CALL SfeT3IT{LA,N»A(L‘<A)) 

5 C0VTINUE 
i 0^ 148 JJ>1(MXZ 
LAbM«HcX4JJ«1 
T 


i C0MTINUE 

LKAblKA‘6.4 

LXbO 

60 T0 l60 


-Alt. 


'lAbM-»1x24JJ»1 
call iETBlT(LAjNRlU.KR) ) 





r0RTRAM IV*PlUS V32.04 l2l39lSl 29 .aU6*77 PAOE 9 


O0T(?iyRj 

ptil _ 

„ /TBiBlOCkS/WR 

02S9 

154 

CONTINUE 

0260 

V 

IF(ID1S.NE,3)G0 TP i57 

0261 


D« 156 ^Jil.MCX 

026? 

C 

c 

LAbM4 JJ”1 

. maila/o 


c 

MC*HA«tK4 


c 

NRB(MC>aIBICU*'S(>iP)tlMf!B(Mr)) 

0263 


CALL SET9lT{i,A,Nivt(y<c»>) 

0264 

156 

f* 

CBNTTfJUe 

026;> 

u 

157 

D? 158 Jj»l,hX2 ~ 

0266 



0267 


call Se-TSIT(L4,-JR?’(LKe)) 

0260 

15? 

p 

GZVTIn J6 

0269 

u 

LK0aL*<3t64 _ 

0270 


UXal 

0271 

I6r. 

C 

C.1 

0272 


D? 17'i JIal.KXY 

0273 


IF(UjE?iJ?5K..TP 169 

0274 


DP 16? JJal.MCX 

0276 


LAavi+Jj-l 

0276 


CALL SETBlT<LA,V'RiaKA)) 

0277 

16? 

CZWTtNUE 

0278 


LKA»LKA*64 

0279 


LXaO 

0280 

p 

Q? Tg i75 

0281 

166 

U-) !p3 JJal.MCX 

02«2 


LAatUJj-l 

0283 


call 5£TBITaA.»'R '(LKS) » 

0284 

16? 

CBvTI.^uE 

0286 


■ L10»L<3*6‘4 

0286 

c 

LXaJ 

028; 

175 

c^'.'Tl-nip 

0286 


K a K ♦ 1 

0289 


IFiK.GT.f^U'iDPTJG'’ T'J! 190 

0290 

■‘IB0““ 

‘laMVl'^Pl'IX 

0291 

18" 

r 

C;.>'VTIM'E 

0292 

19:1 

CBMTIM'E 


c 

i<iRltF( 5*155') KHRt 

02^3, _ 

155 

F3PMAT(6X, *KW9T ATTgR 19"»,Ie/) 


— c 

■ ;j^T('5Ti55T lC4fiT - - 

0294 


IF(KW'?T.EC,O)S0 20C 


L 

c 

c 

It. WRITE CR0SSHAIP MARKS 8N Theme 

0296 

CALL IrtT(MT,L.LL*’!RA) 

0296 

c 

call waTT 
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0301 

0302 

0303 

0304 

0305 


0306 

0307 

0308 

nTsoT 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 
C321 


0322 

*3?3 

324 

325 
126 


C 


call. luT(NT|L41tLM|MRB) 

-CALL KAU - 

1F(K .OT. MUHDPT) 60 T0 
30. T0 6200 - 


210 


200 UsL^IGRIOY 
219_. ._50Js!I1nUE . 

201 K«K*1 

lf(K *6T. NUMDRT) 

60 8230 


60 TO 210. 


210 C0NTIMUE 

C «R.1TE(9.1899) I,J,K,LiM 

1899 r0RHATC6X*M*J«K.L.M AFTER 210* ./|6X|5I10/) 

C JifiJT6c5jlfl42) 

1042 F0RmAT</// 6X, 'FIvlSH»/) 

5 fi£I..LLAPS£_m£ -L*. 

Tl•SEC^0S(TI) 

-WRlTi(6.l0l0)Tl 

F0RMAT(iOX,».EUARSI= Tne * »iF9i3,' SEC0NOS») 

' wRITF(6,1011) 

nl tR.lECYCLE :!fl .E{X)1T >») . 

CALL 2UTPUT(7) 

Ri.AJ](6«200Q)W 
CALL rR0WT(W,74) 
lF<w(i).EQ,»x‘ia? rii 3000 
IF(W(iV.F0, 'PM60 TH 5 
1F(W(1) .EQ.« . MQg TH .3QB.Q. 


I'^l? 

C 

1009 


216. 


WRITE(6, 10051 
Q0 T0 2l6 
C 
C 
C 

3000 CgislTlNUE 

C CALL Cf'P<6) 

CALL S^Tf-FCSO) 
call detach 
WRITE (6, 1012) 
101 ? F0Rmat(iox, * neT 
c 


»- nartWR •• TEP*^IKATI0N 


CROtSSHAiR ’IVERlAY C0MPlETED 


• 9 8 9 1 9 9 


c'cccccccccccccccrcccccccccccc'ccccccccccccccccccccccccccccccc 
c c 
c c 
cccccccccccccccccccccccccccccccccccccccccccccccccccCcccccccc 




























. .... 














DMH 

THIS CROSS 
MUtK 


INCRfASE X'COUNTER 
BV GRIDX 


HMCE CHRN6ES IN EVEN 
OOO BJFFCRS FOR TOP 
VERTICAL OF CROSS 


IWKE CHANGES IN EVEN AND 
OOO BUFFERS FOR LEFT HORI 
ZONTAL OF CROSS 


OISPUY 
OPTION • 3 



ALL 

CROSS MARKS 
ON BAND 
PROCESSED 


ELAPSE TIME « XXXXX.XIX SECONDS 


« r 








I 


YtS 




12. DOT QROUP 8CATTBK PLOT 8CPLOT 


Hfj>fiTRAN,lirELW V«2*J14 l3lg«M4 j«»teP*77 PA8B I 

iCPL'T.rTN /TRlMLfCKl/*(«r 

5C01 , ijiCtunB * TOP .IMP* 

• ciccicciecicciccicetccicricciciittiGcitciceieciceieciccicciCcieciceiecic 

• c 

• c 



ooo? 


0001 

0004 

0006 

0007 


eoci* 

occ<v 

0010 

0911 

C012 


0013 

0014 
0019 
0016 
0017 


0019 

O07C 


0021 

0022 

0023 


0024 

0029 

0026 


C 

c 

c 

c 

r 

c 

c 


SCATTER PL0IT OPlvEA PHQQIUM, 

T, ‘^1/1.60/4/77 • 

SCPUn'.FTN 
include 'BOT.INC* 


cicciccicpicriccicntccicrirciccicciccicciccicciccicctcciccicciccicciccic 

PRPG9a>’ 8CPL0T 

include «HUOGYffg*R.C yH» 

~ itTct !.? oB ' [ JO? i'nriHitfMBf*, TKcT" 

INCLUCK *3^10300 •33CAHSP4Ram,1k<C 

PARA^ETgfii MAXCAT460,KAXlUil*6Di'^XCMNa4«NPtX>i96|NLIN*ll7iMAXrLO«90 
lfFAXVKU«Nn0TSB2O9.i:LSKlPalO|OSSKlRslO»NAXACO46»MAXACCB4« 
^^'e4PUc•6fNPOTWO■iO 

EOUIVaLFRCP CClf ACnATE)i(CrilS9B),(CSfPPLAG).(C4tTxl)t(C9»01IKtD) 

“ rNT67.e<» ' Cli460 ) . iOiit 29f )tC3 r 71 ) . C4 j $41 ) ;Cf( 629 ) 


( 

( 

( 


( 

( 

( 

( 


c* 


INTEGEK ACfiiATE,Sl'BrAT,SJSP(^,Crrm#‘eATTM 
BYTE CW»|VBr.N0OHAK.i4ffSU8iC‘’TC‘AT»OeYetU 

e0MH?\/cOMl/ACQATE(2iMAX«CC)iCHRVEC(RAXCMNiMAXACC}«N8CMANfNfSURi 
l9U^CAr(HAXCu9)i8U0P4P(rAX$ e)fCATKNT(MAXCAT}|CATTH(HAXCAT)tN0O0« 

*?\0’5j;\2TP^.i™TCTTlN‘^?T51»TT0YCtirr'rtJlT¥r“ • •• 


INTEGEB ‘DATES, sun AT rANlLST,TtinnT;DFrOAY,PDATBl#TDATEl 
INTeGf;'’ 2OATF2,Tn«rE2,POATP3(TnAYES,CAYNAM,OtSKlO,RAND0H,GRlO 
RYTE DPiFL3,R0ACO,SnLCP»S'’NEL7R!fT^APr,TgTVPEl,ALP.Al.P0 
3YTE »CtCT,PCTCTP.*'AP,VAP0.OLA4El,TYP6 

CBMHfr:i/:?Pf77mB.D*’LTl'0*,'TOTC77TOmfT2,MlfICOJ,'S»lL8RtHAXACTI, 
ISU-^EL ('<AAACD),SUNA7(*<AXA0Dl,tMr)AYE(2)f ANALST(9)|PL0DAY(2 )i 
2DDTO A V 1 2 » , SJSTART , NTYPEl , Pm m rrrjTOATEX ( 2) » PD ATf 2 (2 1 » TO ATB2C2 ) , 
3PDATE3(2>,TDAT63C2),N'8CAT,CATN»«|0 aXCAT>»ALP<MAXCAT)iALP0, 

4 ■PCTCT(M4yC‘T)VPCTCT2',TrAinr?fIXCAT)iVARP 


TTTrEG E 'P " Hr i ATtiTEruG27mi*ry7 6 r us4;E F U B 9,u r LA B i, ~uru6r«urLTBy,- ■ 

1UFLAR4 

INTEBgP pFLAP.’ISKR'TT 

COHmCs/cOMI/PFL R,’>S4‘iNT,kPLA6i,EFLAQ2,ErLAG9«BrLAS4*EPLAG9iUPLA8l 
1 , UFL I G 2 . UFL A W , UfL A 6r,10BVtljt C msinn • 

■"INTkUtB TXliTTV.TXT, TY2 ; - ACPlSP.O,8,D TR mi O , 'D 0 T A inr i 8RT<»» GWX.m 

integer SPwiNO.CLA'.'r^P.CLUWvO 

C 0 «KPM/CPP 4 /TXl,TYl,TX 7 ,TY 9 ,nn,lYl,rX 2 ,"IY 2 ,ACDISP< 2 »»IllC 4 ), 8 ( 4 ), 

lB(4),nT«lND(9,N0RTwC‘,8PWl\O(9,N0SPHO),lMWlND(4),NUMO0T, 

2D0TAPY ( \0Ff8J .BNTN.GWAXTTUUT* T) .XTOTKDTB ) , CCUWNDC 8 J 
C0»'M''»/c0H9/OIRK!D,RANr0**('ORT?),G4|D(ND0T8>,DLABlL(RO0TS), 

iTYPE(N’'R’»’8l,»FCLPC 

BYTE ACOAC.ACOAl.AODAU,ArOAD.Bur,DB,LlAIE«VAL 
Byte PASS, PCM, T^ir- 

12-1 
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GF POOR QUAUTY ; 


I 


u u uo 



w n 


^ » 



fiiitRAN 

jPIS 
0029 
0090 
0031 


1032 
0Q33 
0034 
0039 

0036 

0037 
0036 

0039 

0040 

0041 

0042 

0043 

0044 
0049 
0046 
0947 

0049 

0049 

0090 

0091 

0092 

0093 

0094 
0099 

0096 

0097 
0096 
0099 
0060 
0061 
0062 

0063 

0064 • 
• 

0069 • 
0066 • 
0067 • 
006T • 

0069 • 

0070 • 

0071 • 

0072 • 

0073 • 
0374 • 
0079 

0076 

0077 


IV*PLUS 

m 


V02*04 


i3"i mTm n 6 ;sEP»77 


PASE 2 


1 

IQOO 


9949 

9990 

9991 


.NTiOE" Clr76fLAi^,^ATI,MHh♦MKi}^ .TTTTJTi l I ft » »«0 # Tm» vm i n 

. !8!l46jjmiJL.2A».Pl#VA,iiJX. 

intb0e<» PTiiPeci.wN 

-...->8tAt^EXV,8>eY,)(y»^xyA • 

C0MHeN /HuQO'y/ AcOACiAlin^ci^jiAeOA0«iuP(9i2t4)«eiri 

V gfLABi B4TE < 2I|Pb<10|>*OfllT f 4i )i W«11N» HHAX . 1 1 J • K« L I Ni 1 74 ) 1 

2 Ll8T(MD3y8)*^.VAL7P4ffs*PXyii)«PdM(2)«PT9(NO0TS*l)*2iCLi 
^ . 3 WN#SXy(2»»TM,TMB<64),Vt*|N.VM4X.XA»K|,xyA(2J.*yH2>,yA,V|,T| 
iNtBOSO BB**C9,MDaT9#l) • 

E0U|V4L|nCE(D8(1.1),0BW(i, 1M 
By^s ripAY(36«HAxAt,:))n0T8(8.'^AxAeo)*D0rP(A) 
(VUSW(16^M4XACC).b/TS)»(4*nAXAC0) 

>fAL CrUS(^.*'AXAnt) 

EQUIVaLEMCE ISiJ»'(l«l)|I.N'>4V(t>) 

EOUIVALEN;CE(lNPAV(l)«D?Ti»a)) 

EQUIVaCEkCE (O0TB(S)iO?'T4fl«l)) 

EOUIVaUEMCE (0«T»(9).D2Tsn(1.D) 

^I^VALEt^CE (lMR4Vfl)|CUS(l«l)) 

E^VALE^'CE (CLU.«(i*i}iCi U3 m(1,d) 

R|Al THMfWlN 
byte 111N-E(74) 
fNTESE'* »AQE 
D»Ta 

oITa L>/9/ 

pa'JE ■ 1 
Ti • i? 

C4U fSQpPM(I0,PAab,'S2Pl.0T liO 4/7/77M7) 

'iRtT§(l0.lOOP) 

r0R*iAT<» SELfiQT •'PTI/MSI (S)CATTSR PLBT, »w) 1ND0W*» 
i“^RASE, C9*/'T(t)wE^~ L^'^fiTCiL 8PE»ATIPNSt >•> 

CAUL LlN(Ii**ILI^e«TI,grLA8) 

80 T? (2ti*l*lil.S)Uru«0 
CI'llviJE 

^r(ILi^Ba),8■o■.•^')CA^.L “gbcpuc^^ilp) 
ir(ILPE(l),EO;« CALL REBijES(«lR) 

1 P ( II. I^ri) ,R0; • t » )TAl 1 TreBi'EJ c THM > 
irtjL|i«E(l»,E3;‘v»'.0R.lL!NRtl>’.EO.‘T»)CALL CLREf(93) 
irMLlRE<l),EO;' '.BR.lLtxedl'.EOi'TMeALL WA!TrR(93) 

C0».’T1nUE 

■ !MCLi'35 *CSOO,33'*AHSAVE,tLC* 

0PE^'(l :^lTil,\A»iE««C3O3|l3'^LPBAL.Tf<P|lSr0RM«'UNP0RRATTED(, 

* typC*’L‘'lfAi04Nl,sR0«<r999) 
wPiTe(i.ci 
wRiTe(1)C2 
W«1TEC1)C3 
W®ITE(1)C4 
mP|TE(1)C9 

CL 08 E<U'<tT«i) . * 

6>^ T0 9991 
TYPE 9990 

ptirkatcix, * p*EM Failure 0 *^ 

CPnTiR^UE 
CALL SfeTEF(90) 

1t»6 • - — • 

ENC 

12-2 


C3OO,1]6L00AL*THP—M0 RESTART') 


I 

X 



SFrerCm 
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OOSCPLiFTN 
0001 
0002 


« 


0003. 


0004 

0005 

0006 
0007 


0008 

0009 

0010 
0011 
0012 


0013 

0014 

0015 
C0l6 
0017 


0016 

0019 

0020 


0021 

0022 

0023 


0024 

0025 

0026 
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include •TPP.INC 
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ciccteeiceieciCc tcc»ccicetcctcciccitctcciCCtccicciCCiacicc»CCtCCfCC(CCiC 
# c 


c 

c 

c 

c _ _ 

CDGSrPL.rT^ 
INCLUDE 


D a T / C L " S T 6 p I s'c 4 T T E R IP t P T 

,_UJKPLL/(.fC/4/77 

IML.1KC- 


C 

C 

c 

c 

ClCClCCICCtCClCClCCICClCriCClCClCClCClCClCCICClCCICClCClCCICClCCICClCCIC 

INCLu PgthURCyBeAR.ffflM* .. 

INCluOE •C300,33=AMSCi4i'ar',INr’ 

INCLUDfc *SYIt30Q.33CAMSPAR',rir.'U* 

PARAVETF'< MAXCATn6'’i'^AXSiJ8ii6r.,‘-*XCwN*4,NPn<«l96|NLIN»ll7»M4XrLO»50 
lihAXy»lljND0TSe2O9»DLSKlPllO*tSSKlP»lO.MAXACD«6.MAXACC«4| 
2f»0SPWC*6»N?DThr'»lO 

- ECU1VAL£!^C£ (Cl«AC!:ATE)a-LC2«lS£kli(C3«PFLAG)«(C4iTXlMC5iDlSKI0) 
IMEGgn Cl(469),S2(2?6)|C3f7l).C4(34A),C5(629) 




integer ACDATE,SiJaCATiSUPP’P»CATtfNT|CATTM 
byte CHfjVECi.N 0 CHAN.NeSUBiD 2 TCAT»D 2 TCLU 

CEMM 7 \/C!!Ml/AC! 3 ATE( 2 .f^AXACC).C‘-‘'>VEC(HAXCWN.MAXACC).N 0 CHAN,M 0 SUP, 
iSjaCATtH AxSuB ). SUflP 2 Pti‘A*S-a)iCATJ<NT(!^AXCAT)*CATYH{MAXCAT)iN 0 Dl?* 
2N0DUl^'^TH,D0TCAT(^rt*TS)|D(^TCi.L^NneTS) 


C# 


AOATES,SDNAif,A^ALST,rLDDAY,D?TDAY,POATEliTOATEl 

|3iCATNAri«OISKIO|RANDPMi6RID 
fART,MTVPPl,ALPiALPO 


C* 


C* 


INTEGER 

integer FDATF2,Tr'AT62iPDATE3,TrATE: 

BYTE Dfct.FLG|N0ACO,seiUGR|S'AEL,NSTi 

BY TE P CTCT.PCTCTP .VAP.VAPZ.DLA&fcLiTYPE . . 

CB‘iMeN'/G0H2/lSEGiDPLFLGi''«iC3» ADATES(2,HAXACD)f S«IlG"<MAXACD) * 
ISU'jEI. (•^A*AGD>iSUNA?|naXACD) I IMPatE(2) • ANAlST{ 5)| FLD0AY(2) » 
2HPTDAY(2)#NSTARTiivTYPEl|Pt/'TPl<2)iTDATEl(2)iPDATE2(2J#TDATE2(2), 
3PDATE3<2>iTDATE3r2)»^'arAT,CAT\«!'(PAXCAT)i ALP(PAXCAn»ALPO» 

4 PCTCT(HAXCAT),PCTCTZ, VARCMAXCAT) ,VARe 

integer fcrLAGl,EFLA62“|lFLAr,3ibrLAG4#EFwA65iUFLA0r,UFLAG2iUFLAGS, 
1UFUAG4 

integer PFLAGiPSKMnT 

C4)rtM?N'/c!^M3/PFLA0jnSKMNTiEFL*Gl»eFLAG2,EFLA0S»EFLAG4iEFLA65|UFLA0l 

1#UFLAG2|UFlAG3iUFLAG4,NE'*1aB(Y(iXsu9) 


“integer TX1,TY1,TX2,TY2i AC:;ISP,G,B iDTWIND,n0TARYiGMlN#OMAX,FUU 
integer Spjj]Np,CLANNP|CUyNvO _ . 

C0MMOn/C?R4/TX1,TY1iTX2,TYp,IXi,IY1iIX2,IY2iACOISP(2)i II 1(4),0(4), 
lB{4),rjYiilND(5|N0BT(-'i;’)iRPWl\O(5,NPSPWO), IMw 1NP(4),NUHD0T, 
2D0TAPY(NO0tS)iGMIN.6MAX|PUL(2i7)|CLAl»'ND(6)iCLU'4NO(6) 
CBMMP\/CgM5/DISKID.RANngH(^DPTs>.GRirHND0 TS?.DLABEL(RQ0TS). 
1 TYPE(nD0TS),RECL0C 

JYTE ACDACiACDAIiACOAyxACOAPjBuFjDRfLlNEiVAL 
PYTE pASS#PCW|THO 
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m 


s 




F0PT><AN 
DCSCPUi 
0027 
0023 

0029 

0030 

0031 


0037 

0033 
0C34 
P035 

0036 

0037 

0034 
0039 
004C 
0041 
0G4? 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 
0C5J 

0054 

0055 

0056 

0057 

0058 

0059 
OCfC 
0C61 
0062 
0C63 

0064 1 

00<*5_._ . 

00b6 

0067 

0066 2 

0069 

0070 

0071 _ loop 

0072 

0C73 i 

0074 

0075 1001 

0076 

0077 
0076 
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/TPiBlBCKS/KR 

iNTEOlffCIFTDFL AO, , OA TE , Hf* I N , hM AX , I , J , K , L I ST I ND I THi 

INTEGE P yMAX,XA,Xl,t.AjVI,TI 

IPTEGeP PTRfPgCL.WK 

PEIL 0 XY.SXV.XVUX 7 A . ... 

/HU 6 QV/ ACDAC*ACD 4 l«AC 0 Aj.ACDA 0 tBUrc 9 l 2 i 4 )|Cirf 

1 DFLAG. 5 ATE t 21 .CB(lCiND 7 TS 4 lLjM.Hl ^>WMAXi li 

2 LiSt(NO 0 TS),^'D.VALiPASSi 2 IXv( 2 ).PCH( 2 ),PTR<NOPTS 41 T.BBCLi 

3 WN, 5 XY{ 2 ).TH,THB( 64 i|VMlN,VMAXiXA»XIiXVA( 2 )iXYM 2 )iVA»V|,TI 
integer DBU( 5 iNDC!TS« 1 ) 

|QUIVALENCE(na(l,l)fDBW(lfl)) 

8 YTE lNRAY( 36 «MAXACC)iDBTS(d.HAXACD)iO 0 TP( 6 ) 

iNTEG gP CLUS«Cie.MAXACC).DgTsW( 4 «MAXAeB) . . . 

real CUUSIBt'^AXACC) 

EQL'IV'aLEmCE (B'JF(lyl))tN»AY(in 
eQUlVAUEMCE(lN»AV(i),DRTP(l)> 
equivalence (O 0 TP( 9 )«DBTS( 1 i 1 )) 

EQUIVaLEmCE (DRrP( 5 ).b 0 TSM(l.l)) 

equival ence nNH*v(i)iCLus g_^ ?i .. 

EQU 1 ''aLEnCE <CLU?( 1 , 1 )iClUSW( 1 , 1 >) 
iNTfGE*’ f^IU( 2 ) 

PYTe C^<M 7 ) 

IN^E&EP v/INCSi^f'SPWQ) 
equivale^'CE (SPKi‘vn(i,i).mN(i,in 
B YTE A 4 l|).ALL< 3 )tSC 4 _ . .. ... 

Integer ffunc 
integer vc,hc 

data CUN/'l*.* 2 ’.’ 3 '.' 4 *,'Q»,' 0 t,»N»/ 

cir B I 

PEC-i. B 0 

.. Call ELAPSE! I ) . .. 

Th s 1 
AA(l)s'! 5 * 

AA( 2 )*’C' 

ALL{ 1 )«*A» 

aLL( 5 !)«'L' 

ALL( 3 )biL' 
sc A > ♦q'*" 

MC a *B' 

VC a »K‘* 

IPA a 1 
PASS a 0 

_ CALi,_cSOPPH{ IPA, TGSCPL l .,0 4 / 7 / 77 »xlT> 

CALL ^fylN(!a) 

SCI TO (lOO. 1 , 100 , 1 . 2 . 2 ) 0 FLaG 
IKW^.CtiO) GB TP 3 
WRITE! I 0 » 1 OOO) 

'TI a in 

FBWMAT! * NF WlVD^"V> AVAILABLE* ) _ _ 

GB lOlJ ' 

CAU CSGr<PW!I 0 ,IPA,'CGSCPL l.V 4 / 7 / 77 *, 1 ?) 
tnTr.SO’.IF>WRITP!i 0 ,i';Ol>AA(ClF) 

FBO--AT! 'SSFL 5 CT '^PTIPNS FBP SCATTER PL 0 T 8 I IDIRT GR 0 L'? 0 R IOLUSTE 
IP means, *,Ai,' >') 

“GE 77 - !iOO, 1 , 100 , 3 . 4 , 5 )DFLaG* 

A a 0 
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lP<LlNEli).EQ|AA(l))A ■ 1 

muM(iU£Q»4AmiA «_ 2 

ir(A.KE.O) 6P T0 3333 
- II » i?_ . _ 

MRlTEdSilOie) 


tP(PASS.EQ.O) 60 T!> 6 

IFJClFiNfiU. 6P.T6 7_... 

IF(Tr.EQ.I0)WRITC(10.1OO?)((ADATES(Jin.J4l(2)ilBliMAXACD) 

1 iDaTEiHCiVC . 

P0RMAr(i ACQUISiriJ<NiS AVAIlARLP per O0T GRRUT SCATTER PL0TI'/ 

1 ' «.i2x««ACQ. DATPS CHA^^ELl^<tAXACIl>(J_!ul4XJ^l3^8X|*ALkL^)* 

2 • PC'R THE CURREK'T TN USE tV* ACQU1S1TI0N DATE ■ *213/ 

3 » Channels ■ • *iA1/> 

DP 8 I B l.MAXACn 
IF<O^TF(l).NE.ADATES(lin) 60 8 

IF(OATb(2}.EO.ADATPS(2«I)> GP T8 9 

CEMIIJ^.i!£ . 

WR1TE{ Ip.1003) 

F0BMATC CAN M'^T R'^PCEED') 

TI * la 
G0 T» 3 
ACDAn a I 
ACDAI a I 

IF(Tl.6Q,IB)HRiTE(ie,l604) 

Fai?H*T( *SPO0CE5D {Y)ES/C^) '? >*) 

• CALL LIM^F»LI^’E•TI|DFLAG) 

60 T^* flOO,3,lOO,10ilOill)DPLA2 
IFaiN5{l),E0,»Y*) G0 TP I? 
lFaiN5U).^Q,’N') -fir T0 3 
60 T0 10 

IF(T!’.EQ.IP)A'RlTEn0ilOO5)((ACnATEC Jil), J«li2)i(CHNVEC(JiI),J«l,4) 
1 l«l,MAXACC),DAf£,HC»VC 

F0RMATC acquisitions AVAILABLE F0R CLUSTER ^»EaN SCATTER PL0T|»/* 
1M2Y,'aC0, hate CmannEL‘/<HAXACC>( * t.l4X»2l3i9Xi4(IltlX}/)/ 

4 *_ F^R Tyf SURRF^T ]v USEiJ./ 

2 ’ AcOuisiTl0N '>ATB ■ *.213/' CHANNELS « »»A1*’ , 

3A1/) 

D0 13 1 * l.MAXACC 
lF(DATfc(l),WFtACpATfc{i,I)> 63 T0 13 
IF(DATE{2).E0 ,aCPATE(2,D) 60 TK 14 

. . - .. 

60 T0 IS 
ACDAT « I 
ACDAC » I 
CALL VAlCK 

iF<VAL,EO'.0) 60 TP, 15 

60 I£_y ^ 

D0 14 I ■ l.MAXACD 

1F(CIF.EQ»J) M II_162 
IF(ACOlSP(l).NE,ADATES(l.in80 Tp i6 
IF(aCd1SP(2).NE,A0aTES(2iI)) 60 T0 16 
ACPAJ ■ I 


»»A1.' 
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126 

163 

127 

128 


129 

ISO 


131 


132 

17 

133 

1006 

134 


139 


136 

1007 

137 


138 


139 


140 

1008 

141 


142 

IS 

143 

1009 

144 


145 


146 


147 

19 

146 


149 

20 

150 


IDl 


152 

?1 

153 


154 


15J 


156 

'll7 ■ 

157 


l5a 


159 


16U 


161 

22 

162 


163 


164 

23 

165 

ICIO 

166 


167 


16^ 

24 

169 


170 
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KS/WR 


163 tr(ACDlSP(l),Ng,ACDATg(l.I)} 00 T0 16 
lF(ACDlSP(2).NSiAC0ATE(2.n) 00 T0 16 
ACDAJ • t 
ACDaC ■ I 
ACCAl « I 

16 C0NTtMUg : 

17 IFm.FO.n) wpite( 10 ,iOO 6 ) 

1006 F0Rmat(» S5LPCT aC'jU 1$ITI0' PAT* FR0*< TH6 r0LL0MINfl DATES* J 
IF(Clr.EQ.?> G?i TP 18 
lF(TI.':Gfl?)^RITFnF.lOO?) 

1007 F0RMAT(» F»H O'^T GPfeUP SCATTER Pl0T*) 

.AfiDAj » acdaI,.. . _ 

i\i » ‘“axaCo 

IF(TI.?Q.I^)WRITP( .1O0R){1i(aCATES(J,I).J«1,2),1?1iMAXAC5),aCDAI 

icoa f 0 rmat(<^-i>m ,iir) *. 2 !S»iox,ii,iox,*>*)> 

eti TP 19 

18 iF(Ti,ec;.i:')wRiTE(Tg,ioo9> 

1009 .raR«A.T?i_F?R CLUSTEF 4t6*iS SC*.TIER PLOT*) 

ACDAI * ACHAr 
N « PAX ACC 

IC(TI.EC!.ir;)URlTEne.l008)Mi(AC0ATE(J.n. J«l»3)tl«lfMAXACC)*ACbAI 

19 CALL Ll^.‘ I? i,LImEiT»»DFLAG) 

GK (lOO,3,ino,17»?li20)iFuAr. 

20 1*0 

CALL I'»'TfF(I,LIi';e,74,IAC) 

ACEAI » lAC 

?1 IF(0.L>. ACEAI, A\r,ACnAl, Lb. (O Cji T?) 117 

TI « 

^RITEf l;>»l(.'lfl) 

M.LM? _ , 

117 Ir(3*clr-6.LT,0) G? rz 23 

ACDAC ■ ACnAl 
PATEil )«ACDAtb(l,ACOAC) 

DATB<25»ACDATE(2.A''DAC) 
r>0 T'* 23 

22 ACDA^.* ''CDAI 

'^ATECI rsADATESdiACCAD) 

DAT£(3>sA{jATFS(2, ArCAD) 

23 1F(TI .to. I ')»'RIT?( n:,10l0)wC|Vr 

ICiO F0RPAT(» Sf-LECT Th: Ca^^RJI 'ATfc SVSTEMI’/* CHANNELS 1 • 4i (G)REBNN 
lESS, ('*)'< I. IhTNESS, ?P GR5E ' I N ) LMBER , ' / • $ • i Al , • i • . Al# • >» ) 

_CAUL H,LlA*E.Trt?FLA-3) _ 

D0 T-^ (lO0,i7,l0C»?3',24;25)OFLAti " 

24 LlNE<l)«-^C 
LINE(3)*VG 

IF(TI ,eo. I owRiTEdi ,icii)i c.vr 
1011 F0 BmAT(» SELECtEr thamwElS ■ *.Al»'»*iAl) 

2J. p0 2'^_L«1.3 j2 _ 

00 27 JbI,7 

27 _ jr(LlNE{l),EO,CHM(jnGP Til 2? 

Tl « l? 

MRITE( I0I1O18) 

G0 TP 23 

26 PCM( ?»I/ 2)bJ _ _ 

'lF(J,Ne,7>O0 TP 26 
00 29 J2’1 iMAXaCD 


h' 
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— MSCgUEU^ /I P lElBCKS/ H R 


0181 


IPCA0AT8S(tiJ2),ME.0ATE(l))88 T8 29 

0182 


. lFUPAT.£SiijU21xMlPAIli2) )fll..l.8. an 

0183 

29 

C0NTINUE 

0184 



' 0185 

1012 

r0PMAT(i NP S0IL GREEN NUMRER TBR THIS ACQUIS1T10N*. CHANNEL N 



!/• therefere Same as chamnpl g; •) 

0186 


QNU ■ n 

0187 . 


S0 T? 26 . . 

0168 

30 

Gnu « S0lLGR(J2) 

0109 

26- . 

..-50NT1nUE_. - 

0190 


MC « LINE(I) 

—0121 . 


_yc - _ . „ . 

0192 


CALL VAlCk 

0193 


60 T0 23 

0194 

31 

IF(T1,PU.I^)WR1TR( I0,1O13)SCA 

0195 

lOU. F8PMAT(»lENT£fl SCALlNSl <FlJX6nj (Q)L0BAL. 8R (A)NaL7ST INPUT 

1 ’ *141, • >t) 

0196 


CALL lIN(1!!i.L1N5.T’.DFLAG1 

0197 


G0 ri^ dOO.23,100, U.33|32)0 FLa6 

0196 

33 

Lr-:1>«SCA . 

0199 

32 

SCA « LINE(1> 

0200 


G0 T0 (34,35i36)LlNE(l)*LLlN?<l)/4)»4 

0201 


G0 TO 31 

0202 

35 

-Yttiis: ji ruL-LixPCHCiij - 

0203 


VMAX 9 FUL(2,PCH(1)) 

0204 


MMIN 8 FUL(IjPCH(2)) 

0205 


Mmax 8 FUL(2,PCH(2) ) 

0206 


G0 T" 37 

0207 

36 

VKiNi's 

0206 


. VM4X 3 G«A1 - 

0209 


MMIM s G^IN 

0210 


HMAX 8 5«AX . 

0211 


G0 V* 37 

0212 

34 

IF(Tl,EO* I'3)WRITFngil014}vMlN,VMAX 

0213 

1014 

F0SmAT( 'SE^TFR minimum and MAXI^-UM F0R VERTICAL AXiSi ‘ilS,* 



l3iJ_.>'l . _ 

0214 


CALL LlN( IP iLINEiTTiOFLAG) 

0215 


60 T? <lOO,3l,lOO,t4,34,S9)DFLAG 

0216 

39 

I * f) 

0217 


CALL r>T^F(I,LINE,74,VMlN) 

0218 


CALL INTFFd, LINE, 74, VMAX) 

0219 

36 

- HiyMN.,S£^y*xiG/ T0.3il^ . 

0220 


1F(VMI^.GE.-5,4N0,V'MAX.LE,1Z8) G0 T0 399 

0221 

341 

^RITE(I0,1O18) 

0222 


TI s 10 

0223 


Q0 T^' 34 

0224 

399 

IF<Tr.Eo’,I0)WRITF(!0,lOl4)HMjtN,HMAX 

0225 

1011 . 

F09mAT( 'SENTER MINIMUM AND MAXIMUN F0R H0RI2PNTAL AXIS. <iI3, 
lM3.' >*) 

0226 


CALL L^JUflitLl^'EiTliDFLAG) 

0227 


G0 T7 (100.34, 100, 399, 41, AOTFlAQ 

0228 

40 

I ■ n 

0229 


CALL INTFF(I,LINE,74,HMIN) 

0230 


. gALL..lNLFEiLiLlNEiZiiHaAX|_. . . _ 

0231 

41 

IF(HMIN,0T,HMAX) G5! T0 398 

0232 


IF(MMJN,GE,-K,AN0,wMAX,LE,i28) GO T0 37 
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PACE 


0233 

390 

4RITE(I0. 

0234 


T1 f I« 

0235 


Q0 la 399 

0236 

37 

XVlCl)*Yl-2 

0237 


XYI(P)*Xl42 




0250 


0251 


0252 

42 

C2S3 


0254 

43 

0255 


0256 

4 4 

0257 


025S 

1010 

0259 


C260 


0261 


0262 


0263 

1235 

0264 

45 

0265 


0266 


0267 


0260 


0269 

451 

0270 . 


0/71 


0472 

49 

0273 


0274 

5c 

0275 

4 

0276 

4 

0277 


0270 


0279 

46 

4 

0200 

* 

0201 


0202 

47 


_ 1 .. . 


L»- >•) 


mtU«YI*2 

VYA(2)«XA-1 

0 XVU)*V«IN 

0 XY(2)aHM|N 

^<I^U)«YA♦1 

mHA ;r|»g Alt ( Y A*Ylt.g >> ^ { VY A X. yw I n ) 

SXV(P)arL0AT<(XA«XI*3))/(HMAX-HPlK) 
WRlT(={! 0 ilO 16 )VmN.VMAXiHMIN*HMAx 
1016 P0PMATC SELECTEt) SCAI.EI VM!N • VMAX • 'il3t' i 

4 * Mviak ■ *iI3/) 

12 IP(TI,Eo,I?)MRITE(T0.1O1Y>TH 

JJl7_ P0RH?TUSSELeCT. PUTPyr TyEMg. NyHBEP, Ml..*. >•) .. 
CALL Ll^I'^iLlNEiTf »nPLAQ) 

G0 17. (i00«42*10n,l2.44,43)DriAG 
42 IF(PASS.EQ.O) G0 T>^ 31 

G0 TC 10 
«3 I » C 

CAWL l '<TfmiLlDiEi74/TH) 

44 ir(TW,nT,o.AND.TW.LT,9) G0 T0 

toptT^niiins) 

1010 rePMATC RANGE CHECK'//) 

Tl 1 I? 

G0 T3 12 

lgl4 ^^TI^'JE 

WRlT?(r0.1235) 

1235 P0PWATC NO ri0TS SELECTEf^, TRY AGAIN.'. . •//) 

45 if(ctf.e0.i)call D/TiN(ie#m 

IF (C IF. eg. 2) CALL Cl.USEL ( 10 . 1 1 1 L I ST. NO) 
IFf\O.Eo.O.AVD'.CtF'.EC,2)G0 Tp l234 
lF(jaJ_MD0T,EC.O.AMD’.CIF.E5,l) G0 T0 1234 

Ge- t> (4Tl,l00,ir)fI 

45l IFCCIF.nE.DGM «?0 
NO • NLI'-|D0 T 
D0 49 I ■ 1,MD 

49 LISTM>«O0TARY(1) 

'It T'^ 

50 C0m’tInUE 

0PEN < u''JI T«l, NAME* •r.300.l3CLUST ATS, TMP', ACCESS* 'DIRECT* 
1 .TYPE ■' 'PLn'.RECRn S12E*36i MAXRECaMAXSuB|READ0NLY) 
RECL • iA 4 
HRItE(LP,2n01) 

S0 Tl* 47 _ 

46 0PEN(UNlTti,NAME** [3n0.135nTS,tHPi ,Ae^E81i'blRECY» , 

1 Type « '0LD'.PEC0RDSI2£*13.maxREC«ND0T8.RIAD0MLY) 

RECL ■ 52 

*'RJT£{_LP,2000) 

47 C0MTI\UE 


HNIN 


1 17 47 _ 

»EN(UNlTti,NAME**[3n0.135nTS,tHPi ,Ae^E81i'blRECY» , 
ryPE «_'0 lD'.PEC0RDSI2£*13.maxREC«ND0T8.R8AD0MLY) 

: M I - ■ 9 


» 47 cerri\wi: 

2. 'IH 1 TE (LP. 5433 )/YT.XYA .;>XY.SXYf XI. XA.YIiYA.VMIN. VMAX. HMlNiHWAX 

D5433 F0PmAtC '.sino.s.xi/f* •i0(I5|X)h 

• ^ A 


0243 


r0«mN IV-PLUS VOa-04 ‘ ' 14i04H6 81«AUQ«77 ’ ’ PAttI 7 

DQ9CPu« FTiil /TPiBLaCKS/WR 




00 48 16 « liNH 

02A9 


_J. 1_USIL161 _ 

0286 


lP(J«67.N0SUR.ANn.Cir,&Q‘.2)Q0 T| 46 

. 0267 


- X-l_I-*-l -V. 

« 02P8 


PTfiil)»5 


n 

yR!TElLP.543lJ 1. J.REC4.PTR(lJ.l,18Tnj.4eDAJ.AeDA! 


05481 

F0RmAT((' M6(03*2Xm 

- 0289 


.52AMliJ.ULfi|RAY(Kj.KfliRiCLJ. - . 


n 

uRlTE(LP«543l)(l»iRAY(K)|Xal»R8CL) 

0290 


D8(lil)|j_ 

0291 


IP(Clr.NS.l) GR r^ 51 

.8292 

?(LQ 

00 52 J • l.MAXCHN 

0293 


DB (J^l.DiO 

02*4 


irmilJl.EO.O) 62 T0 52 

029S 


K • IIl(J) 

0296 


A-> FFUii£iO0TS(KiACDAJ)l 

0297 


DB(J*li tl«(FL0AT(G(J))/lOO, )•( A*FL0AT(B( J) )/100| ) 

-- 029b 

52 _ 

-■C2!itJiMiJ2 - - 

0299 


00 53 J B 1,2 

0300 


K • PC«(»^) 

0301 


60 T/. (54,56)(((K*1)/2)*2)/3 

0302 


A • rrW'sC(D0TS(K,ACOAl)) 

0303 


60 TP 55 

0304 

54 

A.J -D2TSJ^<K«l*ir^^J) 

0305 


60 T9 55 

0306 

56 

A • O0YSW(3,ACDAt )-GNU 

0307 

55 

IFfJ.F^.DFBA 

0306 


DB'^(6-J,1 >«(A-C!XrU))BSXy(J)*XYJ(J) 

0309 


ir(Dt^'<6-J,I),LT.KlN(J))n8W(6-J,I)BMINlJ> 

0310 


1F(DPW.<6-JiI)i6T.XYALJ1)D8‘-L6.5Ui1HXYA(J) 

0311 

53 

C0MTIl)UE 

0312 


IF • F. 

0313 


lA mA 

0314 


HRITF(UP,2?02)FFuf^nDB(l, 1)), lA, IF 

0315 


60 TP 48 

0316 

51 

61 J«li2 - 

0317 


K « PC»J{J) 

0318 


82 TP 157,58,59)(((K-1)/2U2)/3*1 

0319 

57 

F ■ CLUS(K, AC04I ) 

0320 


60 TP 6C 

0321 

58 

F • ClL'S'^(12*Xi ACDAI ) 

0322 


Gg 1P_ 6: 

0323 

59 

FiCLUSW(17,ACDAI)-r,NU 

0324 

60 

IF(jiEO.l)AiF 

0325 


apv(6.J,l IbIF.IXYUIIbSXvUI^XykJ) 

0326 


IF( 0 Pi^( 6 -J|I >,LT.r'lN(J))nBW(6»JiI)BH!N(J) 

0327 


IF(DPw(6-J,n,GT,XYA(J))08v(6-JiI)iXYA(JJ 

0329 

61 

C^^'TI^U6 

0329 


wR1T6(LP,2OO3)FFuNC(C0(1. P)T?iA 

0330 

48 

C0n'T1n;<e 

0331 


CL0SE{UvIT«l) 

0332 


. ^'D «_I ♦ l_ 

0333 


DB^(4.ND)aXl 

0334 


DBWtS^NDJBYl.l 

0335 


PT»<^Dl«5 


D WRlTEa.P.843l)»CnAJt4CDAt 
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I 


w 



X 




F0BTRAM IV-PI.US V02-n« t4l04tl6 9l*AU6«77 BAOE 8 

DQSCPLiPTN .. /TRiBLgCKS/ HB . _ . . _ _ 

C write (UP. »43?)((0d(l.Jt,l«lfS),(0BW(i,J),i>4iShl»t^rjT«JilliND) 

0336 GALL SHELLlNOiSfOBWiPTP) 

D MRtTg(LPt 543 l)ACr.AJ|AC 0 At . 

D wRiTs(LP.5432)((:h(l*J)iI«li9li(0BWniJ)<ll4f|)iPTP(J)iJn*N!)} 

nS432 FiiRMATC • «$(03*2X) . ISigVt |9.2X« IS) 

0337 

osse 

0339 

0340 

n 

0341 

0342 

0343 

r 

0344 

0349 62 

0346 621 

0347 

D 

034f) 

It 

0349 

0390 

n 

0391 

0392 2000 reCKAT< 'ISrATTPR H 0T REPB^Tl*/' D0T GRID NUMBER X Y») 

0353 20fl P£BMAT( 'ISCaTTpp PlPT R6PBt»T|» 

1/' cluster M'MPEiR X Y*> 

0354 2GP2 F^RkAtC * ,BX, I3.6X, I3i U) 

0355 2003 r0PKAT(f *,6X, 13, 4X, 274,1) 

0356 622 Cgr-TlNUE 

0357 PASS I j 

0354 63 1F(TI.PO.I:^)WRITP(T«?,1085) 

I) wRItE(LP,5431)ACOAJ,ACDAI 

0359 1038 rgkMATC •1F''R NEXT «CaTTEm p|,<j>T'. (S)AmE, OR (N)EW WIND0W? >i) 

0360 CALL l.tfvM?i#LlNE,Ti,n7L^6) 

D -mTf?(LP,543l)AC-'AJ,ACDAT 

0361 Gu V-' (iOo,49,ion,*3,ino,6-')nri . aq 

0362 64 G 0 rr" (1,3) (LIML f l)-76)/9*l 

0363 ICP vRITf-tTfilOlR) 

0364 lOlS F2 RmAT( *S(R)FSTA»T i-k E{X)!TT >*) 

OSes fiALL'Ll^U'/iLl’JSti J.tf.D^LAeJ 

0366 00 TP (101.63, 1,100, 100, lOfi 
I )'JFLaC, 

0367 101 C0'.'TIr.UF 

0360 CALL ELAPSP(2) 

0369 ir(BEC L.Eq.D )WlN(l.WA )»0 

0370 * RET'UP'' ■ - 

0371 END 


—CUSiiL'JJllJjlPl _ 

J « 1 
K ■ Ya*i 

CALL SETVID(YA,255) 

WRlTcfLP.SASDACrtAJiASDAI 
00 62 I « l,NO 

IF.<OPw<9ilJ,L6.*aSii{i*J)) Sr TS_62_„ ... 
Call pl0T(k,i«i) 

''lRTT5(LP,543l)ACPAJ,ACnAl 
J 9 I 
cafTi\U6 
CAUL PL0T{K,I-1) 
JliaiI'TlUP|543lJAfiriliJjAj;!)Al 
CALL «JCt\/I0<vI,295) 

WRlTSaP,543l)ACr*AJ,ACt*A] 

CALL S':TVID(VI-1,2*;9) 

WRlTE ( LP , 543 l ) ACDAJ,ACnAI 
ND B U'L • 1 
CALL L^JC'Nk . 

i-R?TE{LP.543l)ACPAJ,ACDAT 
IF(Tr,Nfc.I9) GO TL 622 
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12.2 SOBBODTIMB LHJOUK ] 


J!MRT§#>N I VOLUS vQg>a4 

LRJUNK.FTN /TRIBlVCKS/NR 


■1.4I9113< 5l«AUQ«J2 


£AtEX 


9001 

0002 




0093 


8u.|R0uT|«E ubjunx 
INClI'DE ‘T^p.inc 

ciccicciccicciccicctccicciccicetccic&iectccicciccicctceiccicciccieciecic 

c 


c 

c 

c 

c 

c 

c 


c 

c 


-RITP SC*TXV Ffue 
T, KFUL/L6f:/</?7 
L«JU*JK,FTM 

iNCLUJigJLMT^lN^'. 


PAGE IS 
-0f POOR QUALITY 


0009 

0005 

0006 
0007 


Cl?ClCClCCtCCtCCiCrtCClCCICClCSiCClCCICClCCiCClCC|CClCCICCICClCClCClCClC 

liyiCHJDfe «Hilb9YC<fe»R'.C?K» 

iNCLUni; ♦C3On,‘S3cAMSr0M;|.i,!NC' 

INCLUCE ’SVICSOIiSJCAHSPARam.InC* 

RARA^ETbR HAyCAT«6Oir^AXSUaB60*‘ A]irCHNB4,NRtX«19«(MLlN*ll7fHAXrLO«90 
liHAX''iUiNnKTS«209.LLSKl<>sia,DSSK|R«i0|MAXAC5B6|MAXACCi4i 


0006 

0009 


ZNOSPwrsiSiNVDTriOBlO 

PQUIVaLc^’C: <5lj.A£!:*Alfi.li <Cr, iStQ), (C3,»PLA8) , (C4,TXl) » tC9*DI8KlM_ 
INTSr-l’^ Ci(4A9),e2(296)«C3(71).C4(34B),C5(629) 


OOlJ 

0011 

0012 


ACOATE.SUbr/T.SU'^P P,CaTknt,CATTM 
PYTE '■■Er,MKf:H#N,.\o!fiiJB,D'TCAT»37TCUJ 

ce 1 M^^ /c?Mi/ACrATt<2.HAX4C'*)iCwNVEC{MA<CMN,MAXACC),N8CHAN,N08UB» 
l«UMqAT(!^AX<;0R)j S"tf^<;P(i^A*S '8 )»<:atK\T<MAXCaT),CaTTH(MAXCAT)|N0DR» 
2N«!nUi'.'r'T»^»’’ftCAT(^''i«TS)|f‘PTCLlJ(Nt)2TS) 


0013 

0014 

0015 

0016 
0tl7 


l^T66eR AO*TES,SJiMAii.AN'ALS^.FLOtiAY.D0TOAV,POATEliTOATei 
INTBGEft POATF2,TPATb?,POAT‘-3.TrAT63iCATNAM,DI8KlO,R4ND0MiORlB 
RYTg pFLPL8#NCACP,*;»lL'iR|S>.'N‘-:L,^ST4fiT,NTrPEl,ALPiALP0 
RYTg prTCT.PCTOTP.VAP.VARfc.CtAPfeLiTYPE 

'CfMMi A /ctV2/lSKG,U‘UPLGi'.0‘Cr;4liATE8(2rMAXACb).S*lL9R<HAXACDl, 
1SU‘JEL('aXACD>»‘?U’JA7(maXACC) , lHrATg(2), ANALST«5)ifL00AY«2)» 
2DBTDAY(2>,‘JSTAPT.r Tvpei,PD4TEl{2),T0ATEH2)|PDAtE2<2)iT0ATE2(2># 
3PDAT^3<?> »TDATP3(2)*» ^pat, PATNa" (>»aXCAT) i ALPIHAXCAT) • ALP8» 

A t*CTCT(«AXCAT)iPCTCT0, VAR(f*AXCAT),VARP 


0016 

0019 

0020 


c» 

fNtE'iE'* “CPLAP.i,fcrLA6?»Eri.A';3iFfLAG4|lPLAir5*U?LAQl'f uPOffSiUrCWI* 
li'FLAf-Y 

!.^TE(?F- PFLAOiTSKH: T 

C0*^W'’i./C‘^MS/PFLAO,^’SK»-9T,ferU»Gl»EFLAG2,Eri.A68»BfLA64»EFLAG5,urLAOl 

liUFLAG2,‘jrLAG3.0FLAG4,!-EwLAB(HAX8U8> 


o6?I • 
0022 « 
0023 « 


0024 

0025 

0026 


.TVi , TX >» , t'FS , Affr 1 8P-;G , I , otw 1 NT.UBmtTTiM 1 R, 6PAX , POL 

iNTgGfeP SPwINtl,CLA.^t!#CWUW■.D 

CldMM7M/C*M4/TXl,tYt ,TX2|TY*», IXJ « I Yl ( IX2« t Y2i ACD1SP( 2 M II ( 4 ) , Q| 4 ) • 
l«(4),nT-jlN0(5,*ipnT C)*SP-ll‘ D(5,N08PHP>, IMWIND(4),NUPO0T, 
2n3TA«YC'O0TS)#GMlN,C^AX|Fui.(2»7>iCLAWNO(l)iCLUWND(A) 
Ca«<M'‘'./CgP5/r iSKlD .AA\0gM( DPTs).GRlD(NDBTS).DtABgL(NDPT8)i 
lfYPETgr7Tsr»R«L2C ■ ' 

BYTE ACDACiACDAl.ACDAj.ArOAD.UuP.OBfUlNEiVAL 
RYTt oA8S|PCM,TH4 
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1 


no no* nonn 


riRTRA^ tv« 
.ItJUNK.FTii. 
0027 
0020 
0029 
0090 
0081 


Plus 


V02.04 14I0SI34 31»AUQ*77 PAGE 2 

/TiiOLOeKa/w ti ; 

Il!iTiopCIP» OFL Ar,, DA TE . Mm I V , H« AX , 1 1 J . K , L 1 8T I NO I TM . VM I N 

.intb&£9-)U)a X I XA i X 1 1 Y A 
iNTEfiEP PTP»PBCL.''ti 
peal OXYtSXYiXri.XVA 

C0MkP\ /HUOQY/ ArDACiACOAl|ACUAj.ACOAD*BUF(9l2i4)|ClFi 
1 nfLiS.nATgiai.%B<io. 


ASsISxvIiiliPCMitSitpUcN^ 


U$T(NIi0TS)iNO.VAL«P*S4«PXy(2)iPCH(2I.PTP(NO0TS*1)*PECLi 

_MN»SXY'.2)fTHiTH0U4)iVllL'iVfAX.XA,XliXYA<2)|XVl(2),YA,Yl,T! 


0082 

0038 

0034 

0U9 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 
0049 
0046 


INTESEm nBW(9,ND?TS*l) 
EfiLLlVAl,EMCE(DO(l.l)iDB<<(ljlM 
8YTE r'RAY(:6*HAkACC)iCeTS(e.^AXACD)«02TP(6) 
7Lil&W(lA4^f1A&iCC}jOCT8ii4<nAXACD) 
real CLUS(R»''’AXArC) 

5QUiyAi.E'CR <BijF{1,1)i!N'^aY(1>) 

SQUI VALE" CF ( I .^RAV ( 1 ) . O'^T? (1 ) ) 

EOiM^AUENCF (OeTP(^).0'^TS(lil>) 

60tiIVAUE*'CE (DPTP(5 )iO"T<;m(1,1)) 
eoUtYALEMCg (iMfilY fll .eL:’9tl.l J ) 

FQUIYaLE'XE (CLUSdfDiCi.tStXl*!)) 

InTECE’^ FfUNC 
iNTfipR YV(2*Nn0TS) 
equivalence (BUF(1.1)|VY(1i1)) 

UPfir, (;<M7«l»NAhfe»*C300»i 3SCATxY,TMP*iTYPE»»Pl.n» 


0047 

0046 

004V 

OOSO 

0091 

0092 
0C53 
0094 


1 lACC^SS f 'OIRECTJJ 
REAr(l’M')VY 
07 1 I • It.NC 
K ■ rrJNCcnsd,!)) 

XY(liK)a06W(4i!) 

XY{2iK>«f;BW(«,I) 

C2r;Ti\UE 

WRITEd' ^N)XY 
CL9S?.(yNIT«l> 


0095 RETu'^N 

0096 BN'S 








12.3 BOBMOTIMB PLOT 


HfgBTBAN 14l0ft»2? 31-AH(l-l7 fJ.OE 1 

PlBTtrTN /T^I^LSCKS/kR 

0001 SuOBfuUNS 

0002 InClJOO ‘TOP, INC* 

• CiCOCCiCCtCCiCCiCCICCiCCICCtCCiCCiCCtCCiCCICCiCCiCCiCCICCICCiCCiCCtCCiC 

• c 

•._C . 

• c 

• c 

C PW«T r*!*TS I\ 8CATTSR PlOT 

C T. KEU/L65/4/77 

C PL'»T,rTr 

.0003 LNfiLkilf...*fifl4itiC’ 

• c 

• c 

• c 


ciccicciccicr^tccicciccicrircicciccicnecicciccicciccicciccicciccicciccic 

0054 iNCLUnE *HiJG aY<«gArt.cg.^» 

0005 t I%CL>j:fc *C500,3KAMSrz:‘.»'- ,lNr' 

0005 • INCUVDt •Srit330,33CA«SPA«A*'.I'^' 

0007 « PAPA**E^?-'< “A)fC*T«e'-,''A*Sl!tt«63»f*)(CHN«4,N»IJr«i95,NLt;;*ll7iMAXrLO*80 

i|PAXV«ll.NDfTSB20V.DLSKlPalO,CS5KIPilO,MAXACD>6,HAXACC«4| 
2N0SP«C*6»N:*OTWjBio 

0004 • equivalence (ClA«CrAT£)i(C2iUEQ)t(C3,PFLAC)i(C4|Txl)i(C5|DlSKI0) 

0009 • INTEC^' Cu4A9»,C2:256),C3f71»,C4{34A),C5(620) 

C* 


OOlS 

0011 

0012 


INTEC-F" ACr>AT£,S'»br*T,SU4P-P,Ci'KNT»CATTH 
PYTE C**\VECi'^tCH*w,‘*"Sl-BiP’TCAT,DeTCLU 

CB«M!*\/CPWl/AC^>ATfc(2,HAXACC}»CMNVtC{“ANCMN.M4XACC),NOCHAN,N09Un, 
lSU3C»T(l'AX«LK),SJb‘>^"(*'AXtJl»CATANT<NAXCAT),CATTH(HAXCAT),N0O7i 
2N0nu. TH,t30TCA7(^’>'TS),D(5^CLL<Nf>eTS) 


0013 

C014 

0015 

0016 
0017 


INT?'!e‘5 ADATES,SU\Ai,ANALST,f LDUAV.DATOAV.POATEliTnATEl 
iNTgr-SC PLATA2,TPATE2,PD4Te3,TrATE3»CATNAM,OISi<n},PAND0M,G»lD 
«iVTE irtL^Li;** t'4w2»SfclLGP,S' NEL.NST »RT, ‘ TyPPl , ALPi ALP** 

BYTE pCTCTjPCT:TP*vA!UVAP^tDtAr;kL,TYPE 

r0i*Kr'>./c?M2/ISPQ,LPLrL(>r''^AC'';,;.BATES(2iMAXACD)i8PlL6P(MAXARO)« 
ISU' EL(*'AXACD)*SUNA«'(‘^AXACrJ), lPrATE<2)|ANALST(5)#rLODAY(2>» 
2DeTBAr(2).vSTtPT.i4TVPEl,PDATEl(2),TDArEl(2),PDATE2(2)tT0ATE2(2t, 
3PDATFS(2),TrATP3(2)»f 4CAT,rATN*r (f.AXCAn,ALP»HAXCAT)iALP8» 

4 PCTCT{**avcaT)|PC^CT2, VaN{PAXCAT),VAR0 


001k 

0C19 

00?U 


0021 

0022 

0023 


002A 

0025 

0026 


C« 

iNTEOps FFl Ar,i,ErLA6?,FrLAr,3,ErLA04|ErLAn9iUrLA61,uFUAG2iUPLAQS, 
lurLAC4 

INTgCgB PFLAG,CSXM»T 

CB''‘'"%/Cl’M3/PFLA6»“St»HAT,tr|.A6l »EFlA82#BFLAQ3»EFLAS4iEFLAG5,UFLA6i 
l»UFLAG?.LFLAG3,lJrLA64,iJE''LAB(f‘AXSl«) 

C» _ 

INTE6EP TxI,Tvi,TX?,TV2i AC* ISP.G.BiDTtolNO.nBTAPYiGNlNiGPAX.FUL 
IMEGgN SP-i*jL',CLA'.NOiCLL'i.‘ D 

C^**YP^/n^■M4/TXl,TVl,TX2,TV^,lX1,IYl»lX^,lV2,AC01SP|2^. lIl(4),Gt4), 
lP(4),riYwlND(5,:i0rT t)|SP«l D(5,^P5PBO),I*<W|NB(4),NUMD0T, 
2DPTAPv(^C0rS)«GHtN,GHAX,fUI (?*7 )iCLAWND(S),CLUWN 0(9) 
C gMMe;./r? N5/P15 <lD.FANt. xi‘‘(-D?T<).ePlP(AiDgTS>.DLABELCNDgTS), 

lTYPE{f.»'pT8),PtCLPC 

BYTE ACOAC|ArOAl,ACDAj,Ar*OAO,duF,OB«LlMEiVAL 
BYTE PA8S»PC*^,THP 
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o ri o n r» o o o o 


1 

I 


P0RT>»A''! IV- 

pjj>.TinN. 

0027 
0020 
0029 

00:^0 

0031 


0032 

0033 

0034 

0035 

0036 
0C37 
0036 

0039 

0040 

0041 
0041 

0043 

0044 
C045 


PLUS V02-04 

/TRiPLgCKS/WP 


14106123 31«AUQ«77 


page 2 


integer CirirFL4r.,r)ATEiHMlN|HlAX, I, J.K.LISTiNDiTMiVMIN 
integer VHAX.XAiXl.YAiTIiTl 
irjTFOgP PTRiPECU.k-iVi 

RE*L zxy.sxy.xyi.xya 

/UUGQV/ ACrAC.ACDAltArOAj«ACOAO«Bl>F($l2i4)|Cir, 

l_!lEiA6,PAlfe(2^-niDiL'e?TS?ijLi>jlLNiHfiAXjUJ»RiLlilll74b 

Ll?T(\caTS),Vl),V4L.P*SS.9'Xy(2),PCH(2),P7P{NDRTSPl)»RfCL» 


7 — 
6 


? 

3 W5i,sXY{2),TH,T“^(64J,V'<I 
integer 08W(9,NDf TS*1) 
EQt’lVALENCP<08U,l),nBw{l,J>) 

9YTE lNRAY(36«MAXACC)|P0TS(fc.^AXACD),DCTP<6) 
JJilf e£R. Cigsw ( X A^c ) . 0 ’ TS.U { 4 1 MAX ACD ) 
seal CUUSI’i'-AXAGC) 

EQ!.'1''#1,EnCF (N'tF(l^ilNPAV(i>) 

KQUIVaUE*!CF( MPAV(1),DTTd(i)) 

FQUIVaLEN'CP (D?TP<5J*U’'T«;(1i1) ) 
(ni3TP(5).D?iT<:*«(i,i)) 
Cr'iRAYiJLiC|,.:Sa,l)) 
(CLU«dil>iCLUSi‘(l,l)> 


vNAX.XA»X|,XVA(2)#XYi(2),YA,y|,TI 


equivaL£';cf 

E5»iI^ALE\'CF 

PQUI'/aLEVCF 

data 1^/0/ 

Ji 

IF<U-J1)1»22*3 


Oi- 


1a;- 




0046 

?2 

IF(l.F'3,YA*1)G'* TK 6 

0047 



0046 

1 

IF(!N,tCi0> r,w Vr 4 

0049 


D0 5 T' * li^'A)(C^-'M 

0050 


iFnil(lM).EO.f') U/ TJ 5 

0051 


CALI. i:vv(IM,L,ruF(l, I\) ) 

0052 

5 

C2NTINUE 

0C53 


CALL tNT (Tm.L.I.THH) 

0054 

4 

IN ■ 1 

0055 

6 

IP ■ L 

0056 


IFdP.GE.Yl-DGi^ Tf 19 

0057 


IFMP.GT.Jl-l) GS T? 6 

0056 


P0 7 IC • l.MAXCPM 

0059 


IF(II1(IC).EG,C) G;- T0 7 

0060 


CALL i»vTic# iP.BuFri.lcn 

0061 


CALL wAtT 

0062 


HUF(Xl*i,IC) « 2'!5 

0063 


SUF(>tI*2, IC)«255 

0064 


liUrC Ya*1i IC)»255 

0065 


CALL I -W( IC* IP*bUF (1. 10 ) 

0066 

7 

ceMisLt 

0067 


L s 1 ♦ 1 

0066 


G2 J7 

0065 

6 

L « Jl-1 

0070 

3 

D0 9 is » 1,*''AXCPN . 

0071 


irntKlPl.EO.C) G? T0 9 

'0072 


CALL lSvilP»Jl.BUFa,IP>> 

0073 

9 

C0‘'Tl:^'JE 

0074 


CALL iPTCTw, J1,1 iTmB) 

0075 


CALL -Aj-r 

0076 


[)0 90 IP ■ liMAXCHM 


JiJFfXiiliifill?! 
HUF (XI*2» IP)«255 
8CF( Va*1* IP>"255 


99 




F0RTRAM IV*PlUS V0?-04 14|06|23 3l»AuG«77 


PLBT. 

FTN 

/TR.i8l6CJ<S/(»R - 

0060 

2 

00 12 IP ■ J.KK 

0061 



0082 


ir(M.GE.XA)Gn T0 12 

0003 


- irt61F.E9.2) fii! T2 10 

0064 


00 11 * l.MAXCHN 

6369 


.. imiiiJii*EQ^iLi..pg„ifl-ii 

0066 


3UF(^4l,M)«D«(“4l 1 IP) 

3067 


inN*l.Q5»XA) 30 Tfii 11 

006B 


80F(N'4?,M)«£)P{m*i, IP) 

0069 

11 

C0^T1NUE 

0090 

10 

CALL 0lTSET(\,TH9,t) 

0091 


CALL-alTS£T(M-»liTHa4l) 

0092 

12 

r;0'«lTlNU6 

0093 


PK 13 IP » l.flixrH'i 

0004 

13 

IFlIIKlPj.ME,') C4LL lhV( IP, ji,0LFtli IP)} 

0095 


CALL I-’T<TH*J1.1*THB) 

0096 


IFUl.lT.YI-3) G? T0 19 

6097 


-CALU-ilAlT 

009:4 


00 14 IP s 1,MAXCHM 

0099 


IMIIlM^*) .E^i?) GY T!o 1^ 

0100 


CALL I''<v( IPi Jl^l.b'iFd, I®) ) 

0101 

14 

C0^'TI^■‘IE 

0102 


CALL r-‘T<Tl-, Jl^l.l.THb) 

0103 


CALL wMT 

0104 


Die 114 ■ l»‘'AXC>-'ix 

0105 


B0F(ydl»IP)«255 

0106 


Burcy !♦?, IP)«2«-5 

0107 


HUF (XA*li IP)*255 

0105 

114 

Cti riT T « 

0109 


15 lo 8 j.KK 

Olio 


W s ^.•.^V(4,1P) 

0111 


IFI'\,Gfe,XA)G'' fV! 15 

0112 


IF(ClF.i=C.2) G/> T0 If 

0113 


17 ^ 4 1,^'AXCHN 

0114 


IF(II1C'),CQ,C) GP T' 17 

0115 



0116 


lF(\*l.GF.XA)r,5» Ti- 17 

0117 


PUF(N-»2.4<)*D5(:'’*1i IP) 

0114 

17 

CBMlf.'J- 

0119 

16 

call 6ItSET(V,THP,1 ) 

012C 


CALL B!TS£T(\*1,TH <.l) 

0121 

li 

.... G0'‘'TI.‘;y&. . 

0122 


II (L.L’.''l-2) ZUI T’’ 20 

0123 


00 14 IP 8 l.MAXOH- 

0124 

16 

IFdIK IP) .NF,7)CAI.L I * V (I ", L , «tF ( 1 1 IP ) ) 

0125 


CALL r T(TM,L»1|TH->) 

0126 


CALL 4A1T 

0127 

1? ... 

IN_4.0 

0126 

20 

L » Jl ♦ 1 

0129 


PETuPr; 

0130 


END 
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12.4 SUBROUTINE 8ETVID 




HFSRTRArtl IV-PL'JS VCa -p4 14!<J*‘56 H-AUS-^7 I 

86TVI0.FTN /TR|'Bl«>CKS/WP 

0001 ?g«Rt»uTH6 SFTVl^aiiD) 

0002 InClI'DE; 'T^P.IMC* 

• (^irCiCCiCCiCntCClCCtCClCClCvtCCiCClCClCCtCCtCCICCICCtCClCCICClCCICClCCIC 

• c 


• i: 

• c 

• c 

c 

c 

r 

0003 


PL4CP A line ar :2^‘START value BK’ THWE CRT 

T. KFLL/i Er/4/77 
S£TV1L^^T^ 
laGLUDfc *fci0T,lNC 


c 


r 


0004 

000^ 

00C6 

0007 


OCCo 

0009 

0010 
0011 
0012 


0013 

0314 

0015 

0016 
0017 


001b 

0319 

002G 


0C?1 

0022 

0023 


0024 

0025 
002^ 


C 

ClCClCCICC«C'|CClCC»<:C«CriCC«CC«CC»Cr:»CClCCICClCClCClCCICC»CClCCICClCCIC 
JJsiCLvD^ 'HUGGY3JiAR.C’:1* 
iNrL'JaK •C3Uf’,33r;A'<SCf>■/i'\l^r;* 

INCLUpr 'SytC3i'0i31CA NSPAR/iM,!* ct 

PARAMeTfcR '‘AXCAT«6 ',‘'A)'Sl'b*6n,MAxCHN«4,NP|X«l9ft,NLlN*ll7»MAXFU’'«50 

liMAXV*li,Nn?|TS«209.LLSKlPtl0,DRSKIP«l0iMAXAe'5»6i»*AXACC»4| 

2N»SP*'Ds6»Ni)DTw';*10 

fOL'lVALt^CE ICli 'C!:ATfc)i (C2i ISEGli (03.PFLAGjitC4iTXl)i(C5|OISKID) 
IMEi-Jf; ; CK4A9) ,C2( 256), C3{ 71 ) *1:4(340 ),C5(A29) 

C» 

iNTEGt < AC'iATL.SUyrAT.SU'-’P *P , C 4 TKMi CATTH 
«YT£ C'-'*iVfer, ''*SUB,0 'TCATiDeTCLU 

Cia«HP^/C'^Ml/AU''AT(:(i<,rlAXACr) ,Cm,NVEC<MAXCW\iMAXACC) ,N0CWAN,N0SU», 
lsyRCAT('<'''X';un),s;ijp;‘p(MAXs iB)iC*Tk\T{maxcaT),caTTh(maxcaT),n0D0i 
2Nanu.N''TH,’)fe)TCAT(N! ^;TS) in;iTCLU{ '‘OerS) 

c« 

INTEGE'^ A0*TES,Sii's 4 4, A-.ALST,FLn'JAY,D'^TDAY,PDATEl,TDATEl 
INTRGt;^^ PDAT52,TCATL?,PbATC3,TnATE3iCATNAM,DlSKJ0,BANDeH|GRID 
BYTE ^eL^L'?,^^lACn,';(?IL3R,S'■^cL,^START,^’TVPEl,ALP•ALP0 
BYTE pCTCT,PCTrT!», VAR , V APB , DLA’fcLi TYPE 

>'cyf'2/15£G,L!rLFL'M‘'4AC3i a0a7ES(2,MAXACP) •50IlGR<MAXACD»* 
iSUNEl (hA’<Arl,),SUVA?«^AXACD> , I^P ATE ( 2 ) » aNALST ( 5 > i PL0DAY< 2) | 

2D0TOAvf?) . start. tvTVPEi,Pl)iTCK2),TDATEi(2),P0ATE2(2).TDATE2(2). 
3PDATE3C2’ .TJAT(:3(2),^ ^CAT,CATNAf'{PAXCAT),ALPtMAXCAT)iALP0» 

4 PCTCT(MAvCAT),PCTCTk5. VaR(MAXCAT), VARB 

C» .... 

integer fcFLA(ll,ErLAG2,FFlA-,3.e:rUAG4,EFLA05.UFLAQl,uFLAG2iUrLAGS, 
1UFLAG4 

integer PFLAG.nSXK.'T 

C0MH''j/C^'M3/PFLAG,[;5(Kf1 jT.fecLAu- .PF|.AG2,EFlAG3.EFLAG4»EFLAG5|UFLA01 
1 • JPL*32 . UFLAG3 , UFL -'•G4 , N'ENL a b ( M a XSlP > 

C« _ . . _ 

IMTEGER' txi,TYl,tx>,TY2,ACnlSP,G,b.DTWIND,neTARYi6MlN#0HAX,FUL 
INTEGER SPHlNU.CLA^f-DirLiiWi' D 

CB^MPn/C'Tma/TXI.TYI ,TX2,TY?, IXii ITl, IX?, IY2, ACD1SP(2)| I Il(4),G(4)i 
lR(4),uT..lNn(5i"anT' L'),SP'rI‘ D<5,NB5PWD>, JMwIND(4),NUMD0T, 

2D0TAPvf nOBTS) , ■■.rtI^..l,^'AX,PU'. ( ?» 7 ) , CLAiJND ( S ) . CLUWND ( 0 ) 

5|)MMi->/£2jl5/riSKID.aA.lCk5^I'-C?TsLAfiiiJP(MfT5)iDLAeELtND0Tlij. 

lTYPE('n0TS),REGL!i3C 

RvTE AGDAC,ACnAI,ACDAJ,ACUAD.Byr,DB,LlN6iVAL 

RYTP PASS,PC>i.THS 
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FBPTRaM IV. 
IfiTVlBxm 
0027 
0020 

0029 

0030 
OOSl 


0032 

0033 

0034 

0035 

0036 
0337 
0030 
0039 
00<3 

0041 

0042 


Plus 
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integer CIFiOFLAG|0'aTEiHmIN,h^!AXi Ii JtKiLlSTfNDiTH»VHIN 
U!iT£G£.R VMAX , XAj.X 1 • Y A . Y I . T | 
integer PTPiRBCL.HN 

Bi6L OYY.SXYiXYI.XVA . 

/MUGGY/ ACCAC.ACDa1|AC0AJ«ACDADiBUF(512<4)|C|Pi 

1 DFLAG.DAT&(2)i>^ ri(10 i^D^TS*l 


IiilMJ!! » « M 4 XU*. Jx&il 1 Nll74i I 
(2),PCH(2).PTR(ND0TS*l)f«CI 


2 L1ST<NT'»TS>|ND,VALiPASS«PXv(2),PCH(2J .PTR(ND0TS*1) I RECL* 

3 i'N,SXY(2)iTH,TMB(64),VMpJ,vMAX,XA,XI.XYA(2)iXY!<2),YA»Y|,TI 

integer Pbw(5|N0(?tS*l) 

EQU I VaUEnCE < ( 1 . 1 ) • DBm ( 1 , 1 ) ) 

HyTc iNRAY(36«HAyACC)|D3TS(8,l»AXACO),O0TP<6) 

Integer Gwi;S‘(iBjf'AjLA^C),Di^lS'"tiiP*XACO) 
real CUU419, maXACC) 

EOUIVaLEVCE (i»liF(l,l>|lN''AVtl)) 

EQJIVaUENCP< INRav(i) ,DST o(l) > 

EQUJVAtENiCE (D?TP<5),0''TS(1»1)> 

EQUI«aL£vCE (D^iTPC^IiD^TGwaiD) 
equiv alence «J^’RAY(J,),nLMS{itlU 
EQ"IVaUEnCP (CLUFdiil.CLLlSl^a,!)) 


0043 

3VTg 3 

0044 

integer ll 

C04S 

52 1 IP • 1.‘^AXCM^ 

0046 

iFdiidPi.feG.o) Gi" Tia 1 

JJli 7. 

_£iiL I«yiIP,U.,t 'F dtlP)) 

004B 

CALL i-'^IT 

0049 

52 ? Jp * Kl»XA 

0050 ? 

'iUF( JP^li IP)*D 

0051 

CALL !WVdP.U.fal<F(l.IP)> 

0052 

CALL mAIT 

0C53 1 

Tl\UE 

0054 

P£Tl^' 

0055 

Gfjr- 
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12.5 SUBROUTINE 8BTW1N I 

,_M£BR TRAh 1./«P LU5 tft)3»n 4 ' . 1||07‘21 31«AUfl-77 . PAOEl 

SfTMlN.FTN /TR|RL0CKS/WR 

.0001 subroutine SETWlNdO) 

0002 Include ‘Tfp.ivc* 

• ClCClCCtCCtCC|CCtCCiCCiCC;CClCC|CClCCiCCtCClCClCC|CClCClCCtCC|CCtCClCClC 

• c c 

• C _ _ 5 

• c " ~ c 

• c . _ c 

C select a SCATTERPLU'T WIND0W C 

C T, KCLL/Ltc/A/T7 C 

C SETwIM.FTN c 

_0003 .. ... I^LCLuDE 'ff.T.lMC _ 

• C C 

• c c 

• c c 

• c c 

• UrCtCCtCCtCC(CCiCCiCCICrirctCCirciCCiCClCCiCCICCICCICCtcC<CClCCiCCtCCIC 

JIPOA AWYC>> 

0C05 IwCLUpe •HI'bCYltAP.Cf'*'’ 

OOP6 • iNCL'inB •C3CO,33CA^’3Cel!0•J,I^^.* 

0007 • lr^L''tiP. 'SYlC3no,31CAf^?P4RAK, I‘ C* 

0006 • PaRA‘'ETeR ••'AKCA7»6'‘»-*fiXSLiH«6P»“AxCMNBA,NPI*Pl96|NLIN*ll7»MAXFLn»50 

• lih4XVtU»xnt?TS«209.l;LS'> IP«1 0,DSSKIP«10,MAXACD«6|MAXACC«4 i 

• 2^Spur*g|N-?DT*»:)Bl 0 

0009 # EGUIVAUf-NCF < Cl , AC^ATfc ) , < C"’, I SFtt ) , (C3# PFL AG ) . ( C4i Txl ) # (C5, D ISK TD » 

OCIO • UTEPl-^; 0l(4A9),C?(256),C3f73 ),C4(3A8 )iC5{629) 

• (:• 

0011 • IMgCfcK ACPATfc,SllbCAT,SU«P 'H|C aTKNT,CATTH 

0012 • BYTE C"v''EC#^'DCHA^,^.("SUB,0■>TCAT.DeTCLU 

0C13 • _ CC:*'i£r./C-J«l/AC:>ATk(2,.’AXAC'-),C‘*«VEC(MAXCHN,MAXACC),N0CHAN,»J0SUe. 

• i'Sj'lCATt ^AXSL<M),SUbPk*Pr-AXS le)irATKNT(MAXCAT) ,CATTH(MAXCAT),N0DP# 

• 2N0UlJ.M^TH»Oi2TCAT{NPfcTS> , ''yTCl,U(ND(i;TS> 

• C# 

0014 # INTEQ6P • ,ATFS,S'JNAZ,Af.ALST,FUDOAY,D0TOAY,PDATEliTOATEl 

0015 • Ii-lTEGEl? 'DATP2,TnATk2,PDATF3,Tr,ATE3iCATNAM. DISKID, PANDi?B, GRID 

0316 • BYTE nFL^'LS,''iiACC,SOILGR,Si NFL.NSTaRT.nTYPFI.AlPiAlP® 

0017 • arts pCtCT.PCTrrii', WAR, waR0,DLApEl, TYPE 

0018 • C«.‘iM^v/r:"'M?/TSFu, jFLFL5,NEaCC, aDaT5S{2,MAXACO),8PIlGRCMaXACD>, 

t 13UV6L C^AYACDJ.SU^JAZtPAXACD), IPr'ATE(2), ANAlST(5),FL0DAY<2), 

• 2DKTDAvf 2),\START,|'.TYPei,PDJTEl(2),TDATEl(2),PDATE2(2),TDATE2(2), 

• 3RDATr-3(7),TDATE3(Z) •N>ACAT,'!ATaaP((xAXCAT), ALP(MAXCAt), AlP0» 

• .4 bCTCT(mavCaT) ,PCTCT e,VAfi(MAXCAT),VARP 

• r« 

0019 • P-TECk^^ FFUAPl,ErLAG2,trLA‘?3,EFLAC4,EFLA05,UFLAGl,l)FLAG2»UFLAG3, 

t IITLAG4 

002C • iMTEGkP PFLA5,rSK«vT 

flOPl • C(t'^MWv/cf*M3/PFl.AG,cSKM'''T,EFLAGi,FFLAG2,EFLA0S,EFLA64,BFLAG5,UFLAQl 

• 1>UFLA32.UFLAG3.UFLAS4,NE'*LaB(PaXSLP) 

• C* 

0022 • iNTEfifcP TX1,TY1,TX9,TY2 ,ACpISP,G,B,DTw1ND,O0TARY,GmIN,OMAX,FUL 

0023 • integer SPwIK'D.CLA -N riCLUAvD 

0024 • C0Km:*v/C?M 4/TX1,TY1,TX2,TY9, IXj • 1 Yl, I X2. 1 Y2. ACD I SP ( 2 ) , 1 1 1 < 4 } , Q ( 4 ) , 

• lfj{4),cTwlNP(5,N0PT.'r>,SPUl •■n(5,\PSBWD), lMwlNr(4),NUMO0T, 

• _ 2O0TARvP,n^S),GMp:,i,*'AX,Fi;i,(2,7),CLAWND(8),CLUWNO(8J 

0025 • C0*iM^\/r2P5/Pi Sk!r.PANf0*^<‘ D?Ts),GRIO(^6’PtS) ,DLABEL(NDPTS), 

• 1TYPE<VDC*TS),RECL?'C 

0026 4 PYTF aCDAC, ACDAI , ACDaJ.ACUaO.BijF .DBiLlNE, VAL 
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A 



P0»TRAM 1V*PIUS 

-SBTwlk.tli, 

0027 
0020 

0029 

0030 

0031 

0032 


0033 

0034 
0C3S 

0036 

0037 
0036 

0039 

0040 

0041 

0042 

0043 

0044 
0046 
0946 


V02.04 14107124 3Uau6«77 PAOE 2 

YTRlflieCKS/hB . - 

byte pASS.PCH.THr; 

IliI£Q£P^ClPiDFLAGiDATE4Hlliiii4nAXjli3*KiLlSTiNDfTHtVHlN 
INTSGEB VHAX,X&.yl.YA,VI.TI 
INTE8BB PTRiPECL.HN 
real 0XY.SVY.XY1.XVA 
C0MJ8M /H UflGY/ AeD AC.ACDAl.ACUAJ.At 
1 0flA6*DATE(2)inU(10(»D'’TS4l).Hv|N.I 

.2 _Ul§TiND0TS),MU.VALi£i8Si«XYt21.PCHt2).PTR(!<D0TS*2)iRECLi 
3 WM.sXY(2).TH.TM6(64).V««lKiiVRAX.XA*XI.XYA(2)|XYl(2),YA|Y|,TI 
integer D6W(5.NtcTS*l> 

EOU1VaLEmCE('>8(1.1).PBW(i.i)) 

.am imAl(36tMAXACC)ia0TSta«f<AXACD)^0TRi6) 

INTPG^H CLUS>^{ie.MAXACC}.DPT$w( 4 .HAXACn) 
real CliUS(9.MAVArC) 
eooivaLEmce (efiPd.D.iNRAVd)) 


iEl'fl9i2iUu$L£i . 
AX.I.J.KiUINE(74)» 


EQUIVALENCE! iNRAvm.DOTPm} 
equivalence (D<aTP(5).D^TS(1.1)) 
..-EOUJ VlL£NCE 

FQUIVaLEmCE (l^'RAY(l).CLUS(l.l)) 
equivalence (CLUS(lil)iCLLSL(l.l)) 
INTEGER dN(9.M(flsPw0) 
EOUlVALE’'‘CE<‘■■l^!l•l).SPXl^D<l•l)) 

WN ■ 1 


0047 

0048 

0049 
0069 
0052 
0062 
006? 
0964 

0065 

0066 
0067 

0958 

0959 
0060 
0061 
0062 
0C63 


0064 

0066 

0066 

0067 

0066 

0069 

0070 

0071 

0072 

0073 

0074 
0078 


1 oe 2 1 ■ *»Nr:0SP-. D 

2 IF(wlv(l, n.so.C) 08 T«il Y 

DFLA3 * 6 

5 MN ■ 0 

9gTu‘>\ 

ll '*'N 1 «'N ♦ 1 

1F(W s 1 

G2 T'-' I 

3 WN ■ I 
ARV(1)*0 

A«r(2)*( dN(2,u'N)*,il^(4, A)-2)/2 
A9V(,5)1(^I^.(4. N)»9)/4 

ARV(4J*( .'IK'(3,i-'N)*wlv{6, .K)»2)/2 
49Y(6)«(^IN(6, J(3. A)*2)/4 

CAUL tl«K{APY) 

4 IFCTT.EQ.lPiyRITPdJ.lOO") 

lOOQ FJRmAtM select 'INDPW L'CATI^n r0» SCATTEB PL«Tl'/ 

1 • E"TER « CP " Te ACCEPT WInDRW as DIS-V 

2 • PL.AYEP, ENJEB (N) T? DISPLAY NiEXT CUR80R. ENTER (C) T0t/ 

4 »f CURSBP select* 

3 * DPSIRPD L"CaTI2* SI2E. >*) 

CALL LlNUJI.LINb.Tl.PFLAr ) 

30 re <5,5,5,4.6.7)UFLAG 
7 IF<LlNf U).E0. »N* ) GP ys 11 

IF(Ll \fc(t).N6. »C« ) G0 T0 4 
CALL iRK(APY) 

“’’Nd. ''N>«ARY(2).2*ARY(3) 

WI\(3,'^N)bARY(4).2»APY(5) 

win{4/4N)«aRY(2)*aby<31«242 

W1‘)(5,'-N)«ARV(4)*2«aRY(6)A2 

6. - . JSA-S_iilNliaJlNL 

VI s wIN(2.WN) 

YA ■ WlN(3|LN) 
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rBRTRAM IV-RlUS VOB»04 14107124 9l«4U6"77 RAQE 3 

_«tTMlN .r TM /TRifl l eCKS/WB 

0076 YI ■ ^IN(9.W^) 

0077 mU.-NJll. 

0078 return 

0079 £110 













“a uUciX^fCj^ 



& 


ijr^(/jffifiS ' Cs'^ 

C4T*^/i^ wii) - A^Y^w)-i«^Myf S''\ 

iiii") S A*’ ^ 

U)’^ *''r^w.-» i: /^hV ’ ' •* ‘' 


r U>TM(^'< uPM'^ 
u/f*^ 

V#- -w iJr<-»C^u)«j\ 
'/I. , ur-) (i' u> j') ' 

IJ2_^ LtO:0 - l_J 



! '! :-:i::al PAGK 1. 
Oi r»^Oil QUALITV 


L2- 




12.6 SUBROOTIWE VALCK 


HF0RTRAN 1V»PLU S . 14 l07_t5 r .3W4Q«Z7 .. •*>«£. 1. 

VALCK, FTN /TPHl^CKS/M» 

OQCl SUBRPjTlNg VALCK 

OOCc iNCLCpt •T0P.1VC 

• C|CClCClCClCCi('CtCCirciC.i:irciCC|CClCC<CClCCICClCClCCtCCiCCICClCCtCClCCIC 

• c 


_Q003 


0004 

0009 

0006 

0007 


000!» 

0009 

0010 
0011 
0012 


0013 

0014 

0015 

0016 
0017 


C _ _ 

C 
C 

c validity check f?r dcscpl 

c T, K 6 LL/LfcC/ 4/77 

C VALCK, FTNi 

INCJ.'JCE' 'BCIT,IVC' 

C 
L 
C 
C 

cicctcc»cc«ccirc»crtr:cicctccjcc:ccicc«cciccicciccicciccicc«cciccicc:ccic 

_ IN'Cl'JD^ ’HUODYDE^HiCrD' 

iNCL'JCfc 'C 3 O 6 , 3 ]rAKSC 0 »£ ,iNC' 

INCLL'OE ’SY:C 3 C 0 , 3 lCA'ISPAR.**i. I'C* 

PABA^E^EW ^'.AXC 4 T• 6 '^,^' 4 XSllBs 6 •''•»"AVCH^» 4 ,NPlY■ 196 »NLlN■ll 7 lHAXFLD ■50 
l,PAXVBll.ND 0 TS* 2 f' 9 .DLSKlP 8 lo,DSSKlP«lO,MAXACD* 6 »MAXACC« 4 # 

2 NE jPWOB^, ^/DT^|'' 8 lO 

E^IVALHI'C?: (Cl.ACr'ATE), (C**, ISrti)| ( C 3 , PFLAP ) i ( C 4 i Txl > i (C 5 ,.DISKID) 
INTEGER ri{ 4 f 9 ),C 2 ( 2 '> 6 ),r: 3 ( 71 ),C 4 r 348 ) ,C 9 < 629 ) 

C* 

INTEGFB Acr,ATE,SllHrAT,SO'’P ’P.C aTKNTiCATTH 
•=!YTE CH- VEr,N' 0 CHAN.,\'^Si!i 3 ,Q''TCAT,DeTCLU 

C 0 MMn\/C"'Ml/ACOATt (2 ••^AXaCC) f CW '«VEC<HAXCHM,MAXACC) ,N 0 CHAN,M 0 SUH, 
jGljFCAT(i’AXSils) iSilc^tBC AXS B ) i C A TKNT ( M AXC aT > , C ATTHXMAXCAT ) , N 0 O?, 
2 :i.;rj'J,\ 'Tii,n/jTC 4 T(^ -'eTS) ,'’'^’''CLU(^DeTS> 

C* 

IfsTECE^ “DATESiSIINaZ, AVALS-,rUDi:AY,D 0 TDAY,PDATEl,TnATEl 
InTEGE-^ PDATE?,TDATE?,BDATE 3 .Tr‘ATE 3 ,CATNAM.DlSKlO, 9 AND 0 M,GPlO 
BYTE nrLGLD,^' 0 ACD,'; 01 LG«,S :\EL , -^ST aRT, NT YPEl , AUP* AlP® 

BYTE PCTC T.PCTCT 7 , wfcft, VAP«J, 0 L 4 PfcL,TYPE 

Cf'-i-(’-,/rl-.- 2 /iSEG,C’'-UFLG,'J 0 ,'Ca,/>.DAfE 5 < 2 iK!AXACO) .SBIlG^IPAXaCD), 

ISU^EK'^aXaCC) #Sl)'''A?{‘^i.XACD> , I^'DATE( 2 ) I ANALST( 5 ) ,rLD 0 AY( 2 ), 

2 'Ji’TDAY( 2 i.- STAPT,NTYPEl,Bn'TPi( 2 ),TDATEl( 2 ),PDATE 2 ( 2 ),T 0 ATF 2 ( 2 ), 
3 PDATF 3 < • TDATE 3 ( 2 ),N 0 rAT, CATNArjKAXCAT) , aLP(MAXCAT)i ALP®i 
4 PCTCT(MAxCAT) ,FCTC 7 ^, VAR(MAXCAT), VARP 


0018 


c* 


0019 

0020 


0 C 2 i 

0022 

0023 


0025 

0026 


integer ■EFLAG l,6rLAG2,EFLAG3,EfLAG4,EFLAQ5iUFLAGl,'jFLAG2,UFLAG3, 
1HFUAG4 

I'^TEGEf^ RFLAG.CSKk- T 

C(^«M5'N/Ci^H3/PFLA5,?SK»(NT,E'-L.‘3i.EFLAC2,6FLAG3,EFLAG4»ErLAG9,UFLAGl 
l,OFLAG2, UFLAR3,UFuAG4,^■E‘'lL'vB(^'AXSUe) 

Ii'-TEGEh Txr.TYT,TX'2,TY2, ACf I§P,5,B,DtWiND,D0tARY,GHt‘N,GHiX,FUL 
I.vTERfcR bP^INDtCLAvNC.CLl'K- : 

CP 'M?«)/cG“4/TXl,TYi ,TX2 ,Ty?, !Xi, I Yl, 1X2, iY2, ACD1SP(2) • 1 1U4),G(4), 
lB(4),DTw'lNn(f ,'J0 PTjDJ *SPi^I' D(5,NPSPKD>, 1 »^w1ND(4),nuMD0T, 

2I)2TaPY( \D0TS) , '3MlM,G'^AX,Fui. (2,7) ,CLAUN0I8) ,CLUWN0(4) 
Cg’'M?>;/ c'/M<; / DISK ! D.RA Nr.3*^(\C7 TS) ,GRID( ND0TS).DLA9 El(I^D0TS) , _ 

lTYOE(NOpTS),PECU’'C 

?VTE aCDaC, ACDAI. ACDAJ, A-rUAD.BuF.DP.LlNE.VAL 
‘•vTe pass#pch,Th^; 
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r0RTRAM IV-PlUS V02»04 

VALCK.FTN, . /TRl6LgCKS/ i.i4 .. . 

00P7 • integer tIF,OFLAGiOATEiMsIN,Mf'AX.l»J.K,LlST.MDiTM#VMIN 


0028 

0029 

0030 

0031 


0032 

0033 

0034 

0039 

0036 

0037 
0036 
0C39 

0040 


INT1.6EP yMAX.XAtXltYAiVI.Tl 
integer PTRfPECL.WN 
real 8Xy^SXY,XVI.XrA 

common /muggy/ ArpAC.ACDAl«ACDAj|Ae0A0iBUF(5l2t4)|ClF* 

. . 1 DfLaG.DATE { 2 ) Ni HaAli 1^ Ji K i L I NE (74 » » 

2 LIST«ND0TS),md.VAL.PASSiPXv(2),PCH(2),PTR(NDPTS*1).RECL. 

3 WN,S*Y{2),TH,TMH(64),V«IK,vNAX,XA,XI,XVA(2)|XYI(2)iYA,Yl,T! 

Integer nBw(5.NcoiTS*i> 

EGUlVAtE'lCE(D0(l.l)iraw{i ,1)) 

PYTE lf'RAY(36*MAXACC>ir0Tsa.'iAXACO>,D0TP(6) 
lN.T£5t;« CLL!Syild^M.AX.ACC).Dv'TSM4*BAXACP) 
real f;LUS(9.MAXAr!C) 

EQI'IVaLEvCF (BUF(1.1).IN=AV(1)) 

SQUIVaUBV‘CF( lNRAY(l)iU'TP(l)) 

EQM1YaI:EsCE (D?Tp(5),Dwt-;u#1) ) 

EOLlVALcfJCF (DPTP(?).0‘1T';;<<(1,1) ) 


0041 • 

0042 • 

0043 

0044 

0045 

0046 

0047 

004R 1 

0049 

0090 


equivalence (lNH«Y(l)«rLJS(l.;>} 

EQL'IVaLEx'CE <CLUS(lil)|Ci.USl»(l,l)) 

VAL * 1 

iF(ciF i£o,1)‘;etu(;\ 

n?! 1 I • li2 

IF<PChU ) ,GT,4) r,k. T? l 

IF(CM\VECtPCM(niACDAI),2Q.O) VAL • 0 

petu''n 

FNP 
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j ~12.7 S UBROUTINE WIWDRM f 

i "■ 


. HF(^KT(^AN IVPLUS V02-Q4 ?9-AUa-77 

WIND^M.FTN /T<<|4LaCKS/wR 

0001 

0002 I • 1 

0003 J a $ 

'■ 0004 CAUL CSfinPM(j,l, ^^ilr4n0w FRASEMZ) 

0006 CALL attach 

0007 call hinder 

OOOfl call DETACM 

QJ)09 CALL StTEF(53> 

0010 E\P 
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12.7 SUBROUTINE WINDRM 

A flow chart of this subroutine can be found in volume 1, 
page 3-194. 
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12.8 8UBR0DTINB THLOPM 


IVP1M.S y.Q2«fli- . i2|59?5i. 2WUQ-77 PAGE 1 

THLaPM.FTN /TPlBie'CKS/wP 

0001 PR!!aRA>’ THLOPM 

0002 1*1 

0003 J«6 

^ 0004 CALL CSGOPHCJ, I, iTHE>*E L^sGICaL CPERATIRn* « 23) 

0005 £AU.-2llACH_ 

0906 CALL attach 

0007 CALL T^MLOP 

ODOe CALL DETaCW 

0005 CALL S£TEF(53) 

0010 E^^ 




INDEX TO ALL VOLUMES 


The following index lists all computer programs and subroutines 
found in the text and printouts, and the variables listed in the 
text. The first number of each description is the volume number, 
and the remaining number refers to the section in that volume. 

A preceding L indicates the position of a listing. Therefore, 
1-3. 3.1 indicates a reference in section 3.3.1 of volume 1, and 
L2-14.6 indicates that a listing can be found in section 14.6 
of volume 2. The list of programs and subroutines is definitive. 
The list of variables is not complete since those not mentioned 
in text are not included. 
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